
fa ta 


-anol-N°2 PVP200 Pts. fVAInc! 




FLYK 


FICHERO 


B! - PALETA 


MUROS GALACTICOS 




PVP ONARIAS 200 Pis 



























/ 



cidapy 


am 


Fabricada por IBEROFON, S.A. 

Avenida de Fuentemar, 35 - Poilaono Industrial de Costada - MADRID 
Telefonos 67122 QM4-C&12 - Telex 42797 FONO E - Telefax (91) 671 39 09 


Direct Metal n com pact 

Dmm aJpg tg 


Mastering 












Director: 

Angel Herrero Fern^nder 
Director T^cnEco: 
Luis Ssnguino 
Coordinador Editorial: 
Felix Santamaria 
Software: 

Angel Garcia 
Secretaria Redaccion: 

Mercedes Matons 
Diseno e llustraciones: 
Javier Caballero 
Colaboradores: 
Antonio Garcia 
A, Gustavo Chico 
Andres M. Garda 


Mundo SPECTRUM es una 
publication del Grupo 
Editorial SYGRAM, S.A, 
Polig. Ind. Valdonaire. 
C/Apolonio Hernandez- 
HUMANES (Madrid). 
Director Adjunto: 
Andres Franco 


Publicidad y 
sue cri pci ones; 
GENESfS 

TomSs L6per. 3-6* 
28009 Madrid 
Tel. 401 77 54 


FotocompOsicibn: 

Speed Letre, S-A- 
Imprime: 
Grdficas Osiris. 

Bra duel as. 29 
Fuenlabiada 
Distribute: 

G,M.E. Pza. Castilla, 3 , 
Madrid 

Deposito Legal: 

M 31674 1987 
Reservados todos ios 
derechos 


4 

LA INTERPRET A CION DE UN 
PROGRAM A BASIC 

7 

JACK THE NIPPER 

8 

DISCIPLE 

11 

XADON FORCE. LIST 

16 

DYZZY 

17 

DRUID 

18 

FUNKY PUNKY 

19 

SENTINEL 

20 

FERNANDO MARTIN 

21 

A TV 

22 

MUROS GALACTICOS. LIST 

24 

FICHERO. LIST 

29 

GUN FIRE. LIST 

31 

BI-PALETA. LIST 



TODO UN ANO DE PROGRAMAS E INFORMACION 


[5eseo suscribirme a la Revista Mundo Spectrum durante un ano per solo 2.000 ptas., lo que equivale a compraP 
jdoce ejemplares al precio de diez 

iNombrey apellidos: ..........! 

IDireccidn: .......Tfno.: .j 

jLocalidad: ...C.P,; .... Provincial. ...j................. i 


Forma de pago: □ Contra reembolso: □ Giro Postal N.® ... □ Cheque N.° 


Recorta o fotocopta este cupbn y envialo a: Mundo Spectrum, Tom£s L6pez. 3-6 ° - 28009 MADRIDj 


MUNDO SPECTRUM 3 




















Como de sobra se sabe r el lengua- 
je quo usan los ordenadores el tan 
nombrado v ten desconocido por 
rauchos C6digo M^quina, es decir, 
una sucesibn interminable de ceros y 
unos (los hits). Entonces, ^por quG 
cuando uno se sienta ante el ordena’ 
dor y empieza a programar, usa pa- 
labras (eso sf r inglesas) que nada tie 
nen que ver con ceros y unos? Lo que 
est£ claro es que el ordenador com- 
prende y ejecuta lo qua hacemos 
(siempre que nos atengamos a la sin* 
taxis del BASIC, por supuestoh La 
clave de esta a pa rente paradoja eatS 
an b inalterable ROM; a los 16 kb que 
tiene, reside un complicado progra¬ 
ms desarrollado por los tdcnicos de 
Sinclair, que tiene la dificil tarea de 
traducirle al microprocesador del 
Spectrum (el famoso Z-80A) lo que 
escribe un "impreciso" y variable ser 
humano: es el denominado INTER- 
PRETE DE BASIC. 

Como buen "interpret»" se encar- 
ga de traducirta a I sufrido micropro¬ 


cesador cada una de las tineas e ins 
trucciones BASIC que nosotros he- 
mos programado, a puro eddigo bi- 
nario en el que el Z-80 se mueve co- 
mo pez en el agua, 

Para analizar la labor del intdrprete 
hi i,o$ de ver previamente c6mo se 
almacena un programs BASIC en la 
memoria del Spectrum. Lo que uno 
escribe directamente sob re el teclado 
no se almacena tat que asi, sino que 
sufre c terras modificaciones para ma¬ 
yor comodidad del interprets, En pri¬ 
mer Sugar no es lo mismo introduce 
una orden directa (sin numero de li¬ 
neal, que pasa i n mediate me nte a ser 
traducida y ejecutada, qua introducir 
un programa con sus numeros de IE- 
nfea correspond ientes, Este programa 
queda aimacenado en RAM a partir 
de la direceidn contenida en la varia¬ 
ble del sistema PROG, situada en las 
posiclones 5C53H y 5C54H. Supon- 
gamos que escribimos el siguiente 
programa: 


23755: O 
23756s 10 
23757; 8 
23758: O 

23759 s 234 REM 

23760; 80 P 

23761: 82 R 

23762: 85 U 

23763 s 69 E 

23764s 66 B 

23765s 65 A 

23766: 13 

23767: O 
23768: 15 

23769: 97 
23770: O 

23771: 241 LET 

23772: 30 P 

23773: 82 R 

23774 s 79 0 

23775s 71 G 

23776: 61 
23777: 40 < 
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23778 s 
23779: 
23700i 
23701: 
23702: 
23703s 
23784: 
23785s 
23786 s 
23787: 
23788: 
23789: 
23790: 
23791: 
23792: 
23793: 
23794s 
23795s 
23796: 
23797: 
23793: 
23799: 
23800 : 
23801: 
23802: 
23303: 
23804: 
23805: 
23306: 
23807: 
23808: 
23809: 
23810: 
23811: 
23812: 
23813: 
23814: 
23815: 
23816: 
23B17: 
23818: 
23819: 
23820: 
23821: 
23822: 
23823: 
23824: 
23825: 
23826: 
23827: 
23B2S: 
23829: 
23830: 
23831: 
23832: 
23B33: 



190 

PEEK 

23834: 

0 

50 

2 

23835* 

43 

51 

. 3 

23836: 

50 

54 

6 

23837S 

53 

51 

3 

23838: 

54 

53 

5 

238^9: 

14 

14 


23840; 

0 

0 


23841 : 

O 

0 


23842: 

0 

83 

8 

23843: 

1 

92 

\ 

23844: 

O 

0 


23845: 

42 

43 

+ 

23846: 

190 

50 

2 

23847: 

50 

53 

5 

23848: 

51 

54 

6 

23849: 

54 

14 


23850: 

50 

0 


23851: 

56 

0 


23852: 

14 

0 


23853: 

0 

1 


23854: 

0 

0 


23855: 

76 

42 

# 

23856: 

92 

190 

PEEK 

23857: 

0 

50 

2 

23858? 

41 

51 

3 

23859: 

45 

54 

6 

23860* 

49 

51 

3 

23861i 

14 

54 

6 

23862: 

0 

14 


23863: 

0 

O 


.23864: 

1 

0 


23865* 

0 

84 

T 

23866: 

0 

92 

V 

23867: 

13 

0 


23868: 

0 

41 

) 

23069: 

20 

53 


23870: 

14 

241 

LET 

23871: 

0 

70 

F 

23872: 

235 

80 

P 

23873: 

73 

82 

R 

23874: 

61 

79 

D 

23875: 

80 

71 

S 

23876: 

82 

61 

S3 

23B77: 

79 

40 

( 

23878; 

71 

190 

PEEK 

23879: 

204 

50 . 

2 

23880: 

70 

51 

3 

23881: 

80 

54 

& 

23882: 

32 

50 

2 

23883: 

79 

55 

7 

23884: 

71 

14 


238S5: 

13 

0 


23886: 

0 

O 


23887: 

30. 

75 

K 

23888: 

39 

92 

\ 

23889: 

0 



23890: 224 

t PRTNT 

4 

23891: 73 

I 

2 

23892: 59 

■ 

5 

23893: 34 

ii 

6 

23894; 58 

* 


23895: 32 
23896: 34 



23897 : 59 

ii 

ji 


23898: 190 

PEEK 


23899: 73 

I 


23900: 59 

I 

* 

23901: 173 

TAB 

PEEK 

23902* 49 

t 

2 

23903: 53 

5 

3 

23904 : 14 


6 

23905: 0 


2 

23906: 0 


□ 

23907: 15 



23908 : 0 

23909: 0 
23910: 59 

5 

L 

23911 : 40 

i 

\ 

23912: 194 

CNR* 


23913: 190 

PEEK 

) 

23914: 73 

I 

— 

23915: 198 

AND 

1 

23916: 190 

PEEK 


23917: 73 

I 


23918s 62 

\ 

/ 


23919: 51 

3 


23920: 49 

1 


23921: 14 

23922: 0 
23923: 0 
23924: 31 
23925: O 



23926: O 
23927: 41 

> 

FOR 

23928: 13 


I 

23929: 0 


- 

23930: 40 

C 

P 

23931: 3 


R 

23932* 0 


O 

23933: 243 

NEXT 

' G 

23934: 73 

I 

TD 

23935: 13 


F 

• 


P 

Si lo ponemos en marcha observa* 

R 

mos algo ash 


D 

G 

10 REN PRUEBA 

13 LET PROG*(PEEK 

23&33+236*PEEK 


2363i>l LET FPROG*(PEEK 23&27+Z 


36*PEEK 25626)-1 
20 FOR I-PROG TO FPROG 
30 LPRINT I|"t"}PEEK I|T«B 13;<C 
HR* PEEK I AND PEEK I>31> 

40 NEXT I 
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Los dos primeros bytes vemos que 
son 0 y 10 que, Ibgicamente, indican 
el numero de linea. Pern ojo, el pri¬ 
mer byte es el de mayor peso, al con- 
trario de como se almacenan las va¬ 
riables del sistema. Viendo esto se po- 
dria pensar qua el mayor numero da 
linea posible seria 65.535 Iponiendo a 
255 los dos bytes) pero el interprets 
sbfo admite numeros de linea iguales 
o inferiores a 9.999. Si POKEamos en 
esos bytes para dar un numero de li¬ 
nea mayor podemos conseguir efec- 
tos muy curiosos. 

Los dos bytes siguiemes (8 y 0) al- 
macenan la longitud total de la linea 
mis el cbdigo del caricter ENTER 
(13L Ahora el byte de mayor peso es 
el segundo, lo que indica que la linea 
10 tiene 8 bytes de longitud, (7 si no 
contamos el ENTERL A continuacibn 
vemos el numero 234, que corres¬ 
ponds al cbdigo del comando REM 
y, seguidamente, los cbdigos ASCII 
de cada una de las letras de la pala- 
bra PRUEBA. La Ifnea acaba con el 
numero 13, que es el cbdigo de EN¬ 
TER. Como se ve, las lineas se alma¬ 
cenan de una manera bastante sen- 
cilia. S61o hay una salvedad, pues !a 
manera de almacenar los numeros es 
un tanto peculiar. Se podrla pensar 
que cuando se introduce el numero 
2, bate se almacenaria en memoria 
con el valor 2 o* quizes, con el valor 
de su cbdigo ASCII (50), Pero en rea¬ 
lidad es un poco mis complieado. 
Los numeros se almacenan en un for¬ 
mate llamado coma flotante. Cuando 
el Editor de la ROM se encuentra un 
numero lo primero que hace es alma¬ 
cenar su cbdigo ASCII; a continua- 
cibn almacenan el cbdigo 14, que es 
el que indica al interprete que lo que 
viene a continuacibn es la represen- 
tacibn del nbmero en coma flotante, 
que consta de 5 bytes distribuidos de 
la siguiente manera; 

* 1 byte de exponents. 

■ 1 byte de signo, 

* 31 byte de mantisa (4 bytes - 1 
bit)* 

AsL un numero ocupa en memoria 
tantos bytes como cifras tenga mbs 
6 bytes. 

Sin embargo, los numeros que for- 
man parte de una cadena (es decir, 
que van entre comillas) se almacenan 
nada mbs que con su cbdigo ASCII, 
pues el ordenador los trata como sim¬ 
ples caracteres. 

Despues del programa BASIC vie¬ 
ne una zona indicada por la direccibn 



contenida en la variable del sistema 
VARS (5C4B H y 5C4C H) en la que 
estbn contenrdas todas las variables 
del programa BASIC, Una vez que he¬ 
mes visto la forma de guardarse 
un programa BASIC, en memoria, e$- 
tamos listos para saber Jo que ocurre 
cuando se pulsa la tecla RUN y el 
programa empieza a funciorw. 

Todas las rutinas residentes en la 
ROM son llemadas desde una rutina 
principal (MAIN) que ejecuta un bo¬ 
de constante, Esta rutina consta de 
diversas partes, cada una de eflas con 
un cometido distinto: 

* MAIN-EXEC, Se encarga de hacer 
un listado autombtico. 

* MAIN-1 + Limpia todas las zonas 
de trabajo. 

* MAIN-2, Produce (a apertura del 
canal K (tedado) y llama a la rutina 
del editor, 

* MAIN-3. Ejecuta una linea o co¬ 
mando directo. 

* MAIN-4, Indica la direccibn de re- 
tomo de la ejecucibn de un coman¬ 
do o programa* 

* MAIN-5 a MAIN-9, Ajusta las va¬ 
riables del sistema SUBPPC, 
OLDPPC y OSPPC 

* REP-MESS, Esta es la tabla don- 
de est An almacenados los mensajes 
de error del BASIC. 

* MAIN-ADD. Es la rutina encarga* 
da de sustituir o ahadir una linea nue* 
va en el listado. 

Todas estas rutinas actuan en for¬ 
ma de bucle conttnuo, Cuando 
MAIN-2 llama al EDITOR, este espe- 
ra a que se pulse alguna tecla y va al* 
macenando lo que se introduce en el 
espacio de trabajo (esto ocurre solo 
cuando es llamado por una senten* 
eta INPUT) o en el brea de edietbn si 
lo que se escribe es una linea BASIC 
o un comando directo. En nuestro 
case, cuando pulsamosla tecla RUN 
y damos al ENTER* el EDITOR deja 
el cbdigo de RUN (247) en el brea 
BASIC y retorna a MAIN-2. MAIN-2 
cede el control a MA3N-3, que pasa 
a llamar a una rutina denominada Ll- 
NE*RUN cuya misibn es ejecutar una 
instruction o programa. Al detec tar 
el cbdigo de RUN llama a la direccibn 
1COD H, que es una rutina que bus¬ 
es una expresibn numbrica a conti¬ 
nuacibn del comando y, en caso de 
no existir parbmetros insertar el valor 
cero por defecto (por eso RUN en 
realidad RUN 0). Cuando se regresa 
de esta llamada LINEAR UN por fin lla¬ 
ma a la direccibn 1EA1 H, o sea, la 


propiamente dicha rutina del coman¬ 
do RUN, encarga da de ejecutar un 
programa BASIC* 

En realidad* esta rutina consta de 
una especie de bucle que cheques las 
lineas del programa y va llamando a 
las rutinas de cada comando o fun- 
cibn que encuentra, AsL cuando de¬ 
tecta e! comando REM autombtica- 
mente salta a la linea siguiente; cuan¬ 
do detecta en la linea 15 el cbdigo 241 
(LET) pasa a ejecutar las rutinas que 
localizan una variable y le asignan un 
valor (en nuestro ejemplo 
PROG = PEEK.h*), Y asi suceslva- 
mente hasta que se ejecuta la ultima 
instruccibn de la ultima linea dei pro¬ 
grama BASIC. En ese memento, y si 
el programa no ha heebo algo raro 
(POKEado en memoria por ejemplo I 
el control vuelve a MAIN que nueva- 
mente comenzarb a enredar&e en un 
bucle en espera de una nueva orden 
del amo omnipotente (el dueflo del 
ordenador darn). 

Como se puede apreciar, este arti- 
culo no ha pretendido dar una des- 
cripcibn completa y paso a paso de 
la dfftcil tarea que lleva a cabo el irv 
tbrprete de la ROM, sino ir introdu- 
ciendo al lector en lo que en sucesi- 
vos articulos seri un complete y fas- 
cinante viaje a traves de las calentu- 
rientas y eficientes rutinas J 'RGMia- 
nas'L 

NOT A; Para finalizar sugiero que, 
a modo de experimento, sean susti- 
tuidos todos los valores numbricos 
del programa ejemplo por sus equi- 
valentes cadenas alfanumbricas. Me 
explico: si tenemos la linea: 

15 LET PROG = (PEEK 
23635 + 256* PEEK.. * 
cambiemosla por: 

15 LET PROG = (PEEK VAL 
"23635 M + VAL"256'"*PEEK... 

Al ejecutarlo se ver£n algunas di- 
ferencias en la forma de almacenarse 
ahora. 
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rnmmmmmmtm PRONTO EN PANTALLA ■■ 

JACK the x9 V>e< 

* JACK THE NIPPER If IN r-—--——-®-—-—--— 



COCONUT CAPERS 

♦ GREMLIN GRAPHICS 

* DISTRIBUIDO POR ERBE 

Las clases han acabado y I os padres 
de Jack the Nipper, deciden ir de va- 
caciones a Australia, a ver a la familia. 
Pero un viaje de tal calibre, no agrada 
s nadie, y menos si ese alguien es 
"Jack the Nipper". 

Por tanto la solucidn m3s sencrlla, es 
hacer una escala paracaidista en pleno 
Africa, en el pueblo de GAFGNES* 

Y aqui es donde comtenza la epope- 
ya p cufebras, aguilas, elefantes, abejas 
y hasta eJ mismisimo TARZAN, que no 
van a consentir que un mocoso como 
Jack, perturbe la tranquilidad de la 
selva. 

A Jack the Nipper ya solo le quedan 
dos ope tones; 

* Morir en la seiva a manos de sus 
enemigos. 

* 6 encontrar el templo del iJ HI 
NAUGH YNE3S" y desvelar el mlsterio 
que sobre este se cierne. 

A traves de nuestro recorrido por la 
selva, podremos encontrar unos u 
otros objetos que nos ser£n de uti- 
I Wad; 

* COCOS; AL cogerfos nos darSn 
17 disparos, que nos permitirSn acabar 
con nuestros enemigos. 



inuotK in 


ESCUDOS; Seremos inmunes du¬ 
rante un tiempo bmitado. 

CARRETILLA; Podremos transpor* 
tamos por sitios de otra forma inacce- 
sibles. Con Jos controfes podremos de- 
terminar Ja velocidad de la car ret ilia. 

Otros objetos de fnteres, pueden 
ser; el tarro de miel, el ratbn, la cuer- 
da, y otros muchos m£s, que utiliz£n- 
doJos de la forma corrects pueden ha¬ 
cer subir nuestro NAUGHTYMETER. 

Tambten encontraremos los perso¬ 
nals mis pintorescos, que intentaran 
acabar con nosotros; vaqueros, expJo- 
radores y natives. 

* Resumlendo; Jack the Nipper II, ha 
logrado desbancar a su predecesor en 
calidad y adictividad. De 3D se ha pa- 
sado a 2D, las pantallas monocromas 
han pasado a multicolor, el movimien- 
to se ha agilizado dando mayor rapi- 
dez al juego y los efectos musicales 
son superiors a los de la versidn 
anterior* 

Es un juego rentable, que promete 
horas y horas de diversion, debitio a su 



entrafiable dificuitad, y al gran nume* 
fO de sus pantaJIas. 


PARA QUE TE SEA MAS FACIL 
PUEDES USAR LOS 3IGUIENTES 
POKES QUE TE OFRECEMOS. 

Vidas Infinitas Poke 43251,0 

Objetos Infinitos Poke 38306,0 

(Sirve para cocos y escudos) 
CARGADOR 

10 CLEAR 24575 
20 LOAD "" SCREENS 
30 LOAD CODE 
40 POKE 43251,0: REM vidas infinitas. 
50 POKE 38306,0; REM objetos in¬ 
finitos. 

60 RUN U3R 34240 

Si no quieres VIDAS INFINIIAS al 
copiar este cargador no copies la linea 
40. 

Si no quieres OBJETOS INFINITOS 
al copiar el cargador no copies la llnea 
50. 

Despues de teclearlo pulsa RUN 
(Enter) y carga el original desde el 
principio* 
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En nticsfro primer 
numero hablamos del 
Disciple, un Interfax 
que permite coneetar 
at Spectrum dos unida - 
lies de di sco, impresors 
con Interfax Centronics 
p dos mandos de fueges. 

Pero ha llegado a nuestras 
manos la versi6n 3B de este 
dispositive, que amplEa las 
posibilidades en lo referents 
al disco y la impresora. Estas 
nuevas posibilidades son: 

1. Saivar un programs de 
128K. 

2 . Saivar a disco una pan- 
tails. 

3. Hacer COPY de la panta¬ 
lla a impresora. en doble ta- 
mano y con interpretaciGn de 
colores por trama de grises. 
|S6lo con impresoras compa¬ 
tibles EPSON). 

4. Generacidn de ficheros 
ejecutables. 

5. Acceso aleatorio a dis¬ 
co. que nos permite leer y es- 
cribir sectores individuales. 

6. Posibiiidad de ampliar 
ficheros existentes. Desde 
BASIC podemos abrir y 
cerrar eorrientes y canales de 
ios ficheros secuenciales. 

7 . En la "Red Local" es 
posible forrar un fichero so- 
bre una estaci6n. 

Muchas de las posibilida¬ 
des mencionadas son accesi- 


bles pulsando la tecla SHIFT 
Spectrum y a continuation el 
botdn SNAPSHOT. Haciendo 
esto. el border permanecer^ 
parpadeante en espera de la 
pulsacidn de una de las op- 
ciones del siguiente menu 
imagmario: 

— Copy de la pantalla en 
impresora a tamaho normal. 
Hay que hacer notar que la 
copia es interpretada. Los co¬ 
lores 0-3 son impresos de tin¬ 
ts y Ios colores 4-7 conservan 
el color del papel. 

— Copy de la pantalla a 
doble tamafto. Los colores 
son interpretados con tramas 
de grises. 

— Graba la pantalla 
(SCREEN) a disco. 

— Graba 48 K de memoria 
a disco. El programs grabado 
continua su ejecucidn en el 
mismo punto donde se dej6. 
Esto nos permite grabar, por 
ejemplo. un juego comercial 
a disco en cualquier punto de 
su ejecuci6n. 

— Graba 128 K de memoria 
a disco. Igual que la opci6n 
anterior, pero para el softwa¬ 
re escrito en el Spectrum + 
de 128 K. 

El disciple dispone de una 
RAM propia, por lo cual no 
consume memoria. En esta 
RAM es donde reside la con- 
figuracton del sistema ope¬ 
rative. 




POSI 

CION 

RJNDON 

VALDRES 

NORMA- 

LES 

0 

Determina si parpadea o no el! 
BORDER durante las opera* 
clones de disco. Se realize on 
AND del numero del sector 
con el da to contenido en &sta 
posicidn, 

0 - 7 

! 

Formsto de Ea umdad de dis¬ 
co 1. Indica el numero de pis¬ 
tes del disco y si es de sim¬ 
ple o doble cara. 

numero de 
pistas + 
128* doble 
cara 40, 
80, 168, 
200. 

2 

Formato de la unida d 2 

1 

-_J 

lumero de 
pifttaa + 
128* doble 
cara. 

3 

Step rate (tiempo entre cada 
impulse de disco). El vator mi¬ 
nima es 3, pero el mis accu¬ 
se jab Fe es 6. Normalmente 
depends de la unidad de dis 
CO 

3-255 

4 

Determinar si se emplea o no 
el interfaz CENTRONICS 

0,1 

S 

Fija La anchors de impresidn 
en caracteres. Similar a 
WIDTH del Spectrum + 2 . 
Su valor normal es 80. 

080 
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Gracias a que se ha previs- 
to una instruccion para qua el 
BASIC pueda escribir en esta 
RAM, nos es posible modifi- 
car algun punto de la confi- 
guracidn del sistema operati¬ 
ve), sin necesidad de cargar el 
programa en cinta creado pa¬ 
ra este fin. 

El formato de la instruc- 
ci6n BASIC es el siguiente: 

POKE 0 direccidn, valor 
La forma en que el disciple 
reconoce esta instruccidn es 
similar al del Interfax 1 de 
Sinclair. Al producirse un 
error sintdctico, el control 
pasa al Disciple para compro- 
bar si se trata del menciona- 


gos necesaria para inicializar 
la impresora, seguido por el 
eddigo 12. como marca de 
finah 

En las posiciones 42-49 se 
almacenan los codigos que 
se Han de enviar para pasar la 
impresora a mode gr^fico. 
Igual que en el caso anterior, 
el final de (a secuencia es 
marcado con el codigo 128. 

Por filtimo. y creemos que 
da gran interns, son las posi¬ 
ciones 14 y 15 que almacenan 
la direccidn de memoria don- 
de se produce un salto indr- 
recto al aparecer un error de 
sintaxis. En el caso de conte- 
ner el valor 0, el sistema ope- 



do comando, 

A continuacion, os varnos 
a iistar las posiciones de me¬ 
moria de la RAM del Disciple 
con sus funciones y los valo- 
res que pueden contener pa¬ 
ra adaptar el sistema a nues- 
tras necesidades: 

TABLA 

Existen otros grupos de di- 
recciones en la RAM del DIS¬ 
CIPLE que nos pueden resul- 
tar de utilidad: 

En las direcciones 18-25 se 
guarda la secuencia de c6di- 


rativo de disco devuelve el 
control a la ROM del, Spec¬ 
trum. Esto nos permite incor- 
porar nuevos comandos al 
Sistema Operativo. 

A nuestro juicio, ei DISCI¬ 
PLE es un interfaz que resol¬ 
vers muchos de los proble- 
mas de expansidn de nuestro 
Spectrum. La posibilidad de 
almacenar informacion en 
grandes'eantidades y a gran 
velocidad con el manejo de 
hasta dos unidades de disco 
y la posibilidad de adapter 
cualquier tipo de impresora, 
lo convierten en un elemento 
casi indispensable en el hard¬ 
ware que acompana a nues¬ 
tro micro. 


VAtORES 

NORMA 

LES 


FUNCION 


POSI 

CION 


Indicator para la impresora 
Dice si ha de filirar o no lo: 
eddigos da control. Un cere 
filtra los eddigos de color y ex 
pande los TOKEIMs. Un 1 en 
via todos los codigos tal cual 


Avance de linea. 
n/72 de pulgada 
normal es 12 . 


Avances de linea. Indica el 
numero de line a 5 en bianco 
que se dejan despues de ca 
da retorno de carro. Para im- 
presoras con avance de carrc 
automdtico tendremos que 
darle ei color. 


Fija margen irquierdo. Se en 
vian n espacios, despuds d< 
cada retorno de carro. 


Indicator gue dice si los ca i 
£. lien de| 


racte.es 
ser generados como grdficos 
(valor 1 ) o simplemente hay 
que enviar su cddigo (valor 
0). Hay que recorder que en; 
los listados los U.D.G.s son 
impresos en mode grdfico. 


Niimero de estacidn de la red 
Vale 1 para la estacidn maes 
tra. 
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INDESCOMP 
PASA A MANOS 
DE AMSTRAD 



Ha sido presentado re- 
ciervtemertte en Madrid 
el, tan anunciado, SIN¬ 
CLAIR PLUS 3 que incor- 
pora importantes mejoras 
sobre los anteriores equi- 
pos de la familia SPEC¬ 
TRUM; entre ellas la mbs 
destacable es la unidad 
de disco de 3 pulgadas 
muy similar a la de los or- 
denadores AMSTRAD 
CPC 664 y 6128 pero in¬ 
compatible con ellos. La 
capacidad del disco del 
SINCLAIR PLUS-3 es de 
173 kb formateados des- 
de el BASIC de bste or- 
denador. 

Otras caracteristicas 
destacables de bste orde- 
nador son su interface 
paralelo centronics que 
permite la conexibn de 
una impresora compati¬ 


ble EPSON, la salida MID 
RS232 para comunicacio- 
nes, dos conectores para 
JOYSTICKS y una salida 
RGB para monitor. 

La memoria RAM del 
SINCLAIR PLUS-3 es de 
128 kbytes Jivididos en 
dos bancos de 64 kb ca- 
da uno, pudiendo ser uti- 
lizado el segundo como 
un DISCO RAM. 

El BASIC, sin perder la 
compatibilidad con los 
modelos anteriores, in¬ 
corpora tambibn impor¬ 
tantes ajnpliaciones co¬ 
mo la instrucdbn de soni- 
do PLAY que permite 
realizar melodias median- 
te los tres canales y ocho 
octavas, un nuevo CHIP 
de sonido independiente 
del procesador central. 

Otras caracteristicas de 


bste BASIC son sus co- 
mandos para la utilizacion 
del disco (formateo, ges- 
tion de ftcheros, etc.), 
comandos para acceder 
al RAM DISC (disco st- 
mulado en memorial, po- 
sibilidad de evitar el filtro 
de caracteres para evitar 
cbdigos a impresora, etc. 

El SINCLAIR PLUS-3 
permite tambien la utiliza¬ 
cion del cassette median- 
te un conector JACK SE- 
TERO, asi como la co¬ 
nexibn a TV o monitor 
RGB mediante dos sali- 
das independientes. 

Esperamos poder am- 
pliar bsta noticia en prbxt- 
mos numeros de MUN¬ 
DO SPECTRUM, con la 
realizacibn de un exahus- 
tivo banco de pruebas. 


Durante la celebracibn del 
25 certamen de SONIMAG 
en Barcelona en los ultimos 
dias del mes de septiembre, 
fue dada a conocer en rue- 
da de prensa a los medios 
informarivos la noticia de la 
compra del 100 % de lasac- 
clones del GRUPO INDES¬ 
COMP por parte de la firma 
ingiesa AMSTRAD PLC de 
cuyos productos, INDES¬ 
COMP es distributor exclu¬ 
sive en nuestro pais. 

Alan Sugar, presidents de 
AMSTRAD PLC, se despla- 
zb hasta Barcelona para dar 
a conocer la noticia de la 
operacibn que supone la ab- 
sorcion por parte de la com- 
pania ingiesa del total de la 
plantilla de Indescomp. 

Alan Sugar informd de su 
propbsito de que en un pla- 
zo breve fueran construidos 
en Espana algunos de ios 
components® de los equt- 
pos AMSTRAD, lo cual da- 
ria un fuerte impulse a la 
empress. 

El acuerdo, pendiente de 
aprobacibn por pane del or- 
ganismo competente del 
gobierno espanol, sera pri- 
mado en breve y el coste to¬ 
tal de la operacibn podna al- 
canzar los 250 millones de li¬ 
bras esterlinas: 216 a la fir¬ 
ma del contrato y el resto, 
en funcibn de los beneficios 
obtenidos en ios primeros 5 
a nos. 
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XADONi 


FORCE 



Ei juego posee tres fases; 

La primera consist© en ha- 
cer que los componentes del 
comando que se lanzan en 
paracaidas aterricen en la pla- 
taforma que tienen para ello. 

Luego, a bordo de eazas, 
tendran que cruzar el cintur6n 
de asteroides para completar 
la fase. 2. 

La tercera consiste en recu- 
perar los 5 discos que estbn 
ocultos en su cuartel, sin que 
el vigilante te capture. 

Comentario: 

Para los que deseen cono- 
cer cbmo trabaja el programa 
aqui tienen un comentario de 
lo que realiza cada fragmen- 
to: 

10-440, Proceso de iniciali- 
zacibn. Aqui se fijan tos colo¬ 
res, se situa el tope del Area 
para BASIC en 59999, para 
meter seguidamente, a partir 
de esta direccion, una rutina 
en C/M que desplaza 1 carac- 
ter, a la izquierda el conteni- 
do de los 2/3 superiores de la 
pantalla y otra rutina que ge¬ 
nera en la parte alta de la 
RAM, otro banco grbfico 
donde fas letras son el doble 
de gruesas que las del banco 
original. 

El proceso que sigue es to- 
mar cada uno de los bytes 


Espias del planeta XADON 
han robado los planes de de- 
fensa de la tierra. Tu has sido 
ia persona seleccionada entre 
miles de aspirantes para que, 
al mando de un pequefio ca- 
za-bombardero, comandes la 
operacion de recuperar los 
discos, que con esta valiosa 
informacibn, obran en poder 
del enemigo. 


10 REM 

20 REM 4 XRDOM-FORCE 4 
30 REM 4+44*44444444*4 
4-0 REM 

50 REM 4 DftTfiS SCROLL i 
60 REM 

?0 PAPER 0: BORDER 0: INK 7 
30 CLEAR 59999 

90 PRINT PAPER l;ftT 11,5j“UN M 
OMENTOj POR FRUQR" 

100 DftTft 33,0,61,17,57,252,1,0 
110 DATA 3,126,203,4.7,132,15,19 
120 DATA 35,11,121,176,32-244 
13ft fiflTO 33,57,251,34,5*, 92.201 
14.0 RESTORE 100 LET 5=0 
150 FOR ft=6£4 TO 60027 
160 READ B: POKE A,B; LET S=5+B 
170 NEXT ft: IF S< >2360 THEN PRI 
NT "ERROR EN DATAS": STOP 
130 REM 

190 REM 4 DftTflS LETRRS 4 

200 REH 

210 DATS 6,126,17,0,64-,213,225, 
35,197,1,31,0,26,237,176,4-3,54,0 
,35,35.19,193,16,240,201,0 
220 LET 5=0: RESTORE 210 
230 FOR ft=60100 TO 60125 
240 READ B: POKE R,B LET S=S+B 
250 NEXT ft - IF >2192 * THEN PRI 
NT "ERROR EN DRTftS": 5TGP 
260 REM 

270 LET ft=USR 60000 
280 POKE 23653,3 
290 REM 

300 REM 4 DRTftS SRftFICGS 4 
310 REM 

320 DATft 254,254-, 254,0,239,239, 
239,0 

330 DftTft £24,120,60,127,243,252 
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MflPOH-FORCE 


que definen !os caracteres, lo 
desplaza 1 bit a la derecha y 
se realiza un OR con el dato 
inicial, de Asta forma tenemos 
un car Ac ter con el doble de 
grosor. La rutina lleva una 
comprobacidn que en caso de 
introducir mal las lineas DA' 
TA te lo indiearb. Si ocurre, 
repasa las lineas 100-130, Se- 
guidamente, en las lineas 
300-400 se cambian las def ini- 
ciones de las letras a-j por las 
de nuestros grAficos. 

Esto se ha hecho de esta 
manera para poder distinguir 
y reconocer cada grAfico en 
pantalla usando la instruccibn 
SCREENS <x, yi. SI hubibse- 
mos utilizado los UDGs nor¬ 
ma les esta instruccibn nos 
devolveria siempre la cadena 
vacia, en vez del cbdigo del 
car Acte r que nos proporciona 
el mbtodo usado. 

Al introducir los grAficos se 
realiza otro "CHECKSUM", 
que en caso de informar de 
un error tendrAs que repasar 
las lineas 320-410. 


,127,63 

34-0 DOTH 0,0,0,6,192,60,255,24-0 
350 ORTA 52,126,255,127,24.6,255 

, 110,60 

360 DATA 60,36,60,153,126,60,36 
, 102 

370 D-ATA 255,153,137,153,255,16 

5 j 1 

380 D-RTA 60,66,189,131,165,139, 

&t3 , 60 

390 DATA 255,253,255,231,231.25 
5 , £4-3,255 

400 DATA 34-, 8,66,16,9,90,2,16 
4-10 ORTA 60,94-, 191,191,255,129, 
56,36 

4-20 LET 5=0: RESTORE 320 
4-30 FOR R=0 TO 79: RERD S POKE 
65039LET 5=5+8: NEXT A 
4-4-0 IF 5011077 THEN PRINT 'ERR 
OR EN DATA5”r STOP 
4-50 REM 

4t>0 REM * PRESENTACIGN i 
4-70 REM 

4-60 LET R=PEEK 60280+256+PEEK 6 
0201 

4-90 FOR R=0 TO 60 STEP 2 
S00 BEEP •01,R: NEXT R 
510 CL5 

520 INK 2: PAPER 7: PRINT "see a 
aaaaaaaadaadddsaaaadaddddaad" 

530 FOR A=i TO 5; PRINT AT fi,0; 


a“: NEXT A 

540 PRINT "aaaaaeea a aaaaaaaaasa 
aaaa aaaaaaaa“ 

550 PRINT FLASH 1; INK 0,AT 3,9 
XROOM-FORCE " 

560 PRPER 0: INK 7 
570 PRINT RT 9,0: LET A*=”1937 
MUNDG SPECTRUM": GO SUB 2030 LE 
T R* = ,, RUTOR: ANGEL GRRCIR DELGRD 
O": GO SUB 2030: LET A$="CONTROL 
E5: 8.R.G.P,SPACE" GO SUB 28-30 

LET A$="PULSE UNH TECLfi PARR SE 
GUIR": GO SUB 2030: PAUSE 15: PR 
USE 0: BEEP .01,30 
580 REM 
590 CLS 
680 LET P=0 
610 LET U=0 
620 LET OU=5 
630 REH 

640 REM * FR5E 1 + 

650 REM 

668 REM $ PRISfiJE + 

670 REM 

680 LET Fsl; GO SUB 2130 
690 LET UU=UV-1: IF UU=0 THEN G 
O TO 990 

700 CLS ^RINT PAPER 4;AT 17,8 
t “iillii1. iiiiiiiiiiiiiiiiiiii 
iiiiiiiiiixiiiiiiiiiiiiiiiiiiiii 
i£“ 

GO 5U8 2070 

720 PRINT FL ASH 1; PAPER l; INK 
7 ■ jpjf 17 X5 ■ 

730 FOR'a=0 TO 255 STEP 8 PLOT 
INK RND+7 \ R,50+RND +125: NEXT A 

740 REH 

750 REH + INXCIRLIZR * 

760 REH 

770 LET NX =0: LET Nfi=0: LET PX = 

B: LET PY =0 
780 REH 

790 REH * BUGLE PRINCIPAL * 

880 REH 


450-620. Presentacidn, Se 
recupera en la variable R el 
valor del record, almacenado 
en las posicianes de memoria 
60200-1. Tras un efecto sono- 
ro se imprime el tltulo conte- 
nido en una ventana. 

MAs tarde se imprime el 
resto de! texto, empleando 
una subrutina de centrado. 
Se espera la pulsacibn de una 
tecla para dar paso al juego. 
La espera se realiza con PAU¬ 
SE 0, precedido de un PAU¬ 
SE 15 para anular cualquier 
pulsacibn involuntaria previa, 
dibuja el escenario, entrando 
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asi enun bucle que se va a re- 
petir VV veces, y que va a ser- 
vir para conseguir las vidas a 
usar durante el juego. 

En la linea 7&) se dibujan 
las estrellas. 

En las lineas 790-920 se en- 
cuentra el bucle principal de 
esta fase, donde se hace to 
siguiente: 

— Borramos nuestra nave 
e incrementannos su coorde- 
nada. A continuation se im- 
prime. 

— Si no hay paracaidista, 
se active segun una condicidn 
a! azar para que exists, inicia- 
lizando sus coordenadas 

— En la linea 850 compro- 
bamos de nuevo si existe el 
paracaidista. Si es asi, se 
mueve segun la action de las 

Por ultimo antes de pasar a 
fa fase 1, se micializa P Ipun- 
tos) a 0, V (vidas) a 0 y VV (vi¬ 
das posibles) con 5, 

630-980. Fase 1. Se infor¬ 
ma al jugador de la fase en la 
que estb. A continuacibn se 


810 PRINT AT 2,NX;" LET NX 

=NX+i: IF NX>29 THEN LET NX =8 
820 PRINT AT 2,NX; INK RN&47; '*i 
'* ■ XMK * w ^ c Jl 

830 BEEP "801,10: BEEP .881,20 
84-0 IF NO -8 THEN IF RND>.3 THEN 
IF NX >4. AND NX (26 THEN LET NA = 1 
: LET PX=3; LET PY=NX+1 
350 IF NA=0 THEN BEEP .01,15: S 
O TO 810 

868 PRINT AT PX,PY;" "JOT PX + 1, 

PY * Ji a 

870 IF INKEY*="Q" THEN LET PY=P 
Y-I; IF PY(1 THEN LET PY=30 
830 IF INKEY *= J ‘P" THEN LET PY=P 
Y + l: IF PY >30 THEN LET PY=I 
390 LET PX=PX+1 

900 PRINT INK 3;AT PX,PY;"j"; I 
NK 7;OT PX+i, py;" e"; 

910 IF PX > 14- THEN GO TO 960 
920 GO TO 310 
930 REM 

9+0 REM 4 ATERRIZAJE 4 
950 REM 

960 IF PY =15 OR PY =16 OR PY=17 
THEN LET P=P + 125. PRINT AT 15, PY 
; : LET U=U + 1: BEEP .05,5. SEE 

P .1,25: PAUSE 5: PAUSE 60 GO T 
O 690 

970 FOR B = 1 TO 5: FOR A = 1 TO 7: 
PRINT INK A; AT PX+1,PY-1;"iii 
RT PX,PY-1;“iii": BEEP .01, A NE 
XT R: NEXT B 

980 PAUSE 5: PAUSE 60: GO TO 69 


990 REM 

1000 REM f FASE 2 4 
1010 REH 

1020 IF U=0 THEN GO TO 2230 
1038 LET F —2: : 9 SUB 2130 

10+0 REH 

1050 REH i PAISAJE 4 
1060 REH 

1070 CLS GO SUB 2070: PRINT IN 
K 5;RT 16,0;“ggggggggggggggg^ggg 
9999999999399";: FOR R=I TO 2: P 
RINT INK 2;"aaaaaaaaaaaaaaaaaaaa 
aaaaaaaaaaae": NEXT A 
1080 PRINT AT 0,»; FOR R=3 TO 1 
STEP : PRINT PAPER A, ,,,,,,, : 
NEXT R: PAPER 8 
1090 REH 

1180 REM i INICIALIZA * 

1110 REH 

1120 LET NX=8: LET C=0 

1130 REH 

11+0 REM * BUCLE PRINCIPAL * 

1150 REM 

1160 PRINT RT NX,+;“ 

1170 IF INKEY*="Q" THEN LET NX=N 
X-l: IF NX <1 THEN GO TO 1388 
1130 IF INKEY*-"A" THEN LET NX=N 
X+l: IF NX>15 THEN GO TO 1388 
1190 IF SCREEN* fNX,7)="d" THEN 
GO TO 1308 

1200 IF SCREEN* tNX,5)="d*‘ THEN 
GO TO 1388 

1218 IF SCREEN* <NX ,6> ="d” THEN 

GO TO 1388 

1220 PAINT AT NX,5;“i DC " : IF Ctl 
30 THEN PRINT RT RND4IS,38; "d " 
1238 BEEP .083,18; BEEP .803,15: 
BEEP .003,28 

12+0 LET P=P+5: LET C=C+1: IF C> 
208 THEN GO TG 13+0 


teclas, si no vuelve a repetir 
el bucle. 

— Si el paracaidista supe- 
ra la coordenada x = 14, en- 
tonces se pasa a comprobar 
si estb en la plataforma o fue- 
ra de ella, actubndose en con- 
secuencia. En el primer caso, 
suma puntos y se pasa al si¬ 
guiente. En el segundo caso, 
se imprime una explosion y se 
continiia con el siguiente has- 
ta que no queden mbs. 

Si las vidas son mayores 
que cero se pasa a la FASE 2. 

990-1330. FASE 2: Se in¬ 
forma que estamos en la fase 
2. Luego en las lineas 
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1050-1090 se dibuja el escena- 
rio. A continuacidn se inicia- 
lizan dos variables; nuestra 
coordenada X, llamada NX, y 
et contador de zona recorrida 


125© LET ft-U5R 6018© 

126© GO TO 116© 

127© REM 

128© REM i EXPLOSION * 

1290 REM 

1300 PRINT AT NX,5; FLASH 
: FOR R=i TO 5© BEEP 
30 NEXT Pi 

131© LET U=V-1: GO SUB £078 
1320 IF Oil THEN GO TO 2230 
1330 GO TO 107© 

134.0 REM 

135© REM * FRSE 3 1 
136© REM 

1370 PAPER 0: LET F=3 GO SUB 21 

3© 

1380 REM 

1330 REM * ESCENARIG i 

14.00 REtt 

14-10 PRINT INK 2;RT 0,0; “aaaaaaa 
aaaaaaaaaaaaaaaaaaaaaaaaa" 

14-20 LET CO=0: GO SUB 2078 
1430 FOR A=1 TO IS 
14-40 FOR B=0 TO 31 STEP 5: PRINT 
INK 2;ftT ft,8;"a" NEXT B: PRINT 
INK 2; AT R,31; M a"; 

1450 NEXT R 

1460 FOR ft =5 TO 30 STEP 5: FOR S 
=1 TO 3: PRINT AT 1+INT iRND*lS) 
,A;“ NEXT Q: NEXT fl 

1470 LET INK 5 

1480 FOR R=1 TO 20: GO SUB 2170: 
NEXT fl 

1490 LET fl* = "d ” : INK 4 
1500 FOR fl=l TO 10 GO SUB 217©: 
NEXT ft 

IS 10 LET ft* = "h " : INK 6 
1520 FOR R=1 TO S: GO SUB 2170: 
NEXT R 
1530 REM 

1540 REM * INICIALIZA * 

1550 REM 

1560 INK 7: LET fl*=" f”: GO SUB 2 
178: LET XM=X: LET YH=Y 
1570 LET GO SUB 217© 

1530 LET XB=X: LET YB=Y 
1590 REM 

1600 REM 4 BUGLE PRINCIPAL # 

1610 REM 

1620 LET HX=XH: LET MY=YM 

1630 LET XH=XM+(1 AND XMtX>~ii R 

ND XH>X) 

1640 LET YH=YM+il AND VMcYI-Cl R 
ND YMjY) 

1650 IF SCREEN* " THE 

N LET YM ~HY 

1660 IF SCREEN* tXH t YH><>“ “ THE 
N LET XN=MX 

1670 IF INKEY *="0' J THEN LET X=X- 


Entramos asi en el bucle 
principal de esta fase, que re- 
coge las lineas 1140-1260 
donde hacemos lo sigurente: 

— Borrar nuestra nave. 

— Mover la nave segun las 
teclas pulsadas. 

— Comprobar si choca- 
mos, saitando a la llnea 1300 
en caso afirmativo, 

Imprimir nuestra nave en 
las nuevas coordenadas. Se 
imprime tambidn un asteroids 
y se realizan unos sonidos. 

— Se incrementan los 
puntos y el contador del pai¬ 
sa je. Si este ultimo es mayor 
que 200 se pass a la FASE 3. 

— A continuacidn se llama 
a la rutina en C/M que hace 
el SCROLL y se repite el bu¬ 
cle. 

En las lineas 1280-1330 es- 
t£ la rutina que hace estallar 


nuestra nave, en caso de cho- 
que, y que nos resta una vida, 

1350-1790. FASE 3. Esta es 
la ultima fase. Aqui hemos de 
recoger varios diskettes para 
completar nuestro objetivo. 
Las partes de que consta son; 

1350-1380. Se informa de la 
fase 3. 

1390-1530. Dibujo del esce- 
nario. Se dibujan fas paredes, 
luego las puertas que las co- 
munican y por ultimo se si- 
tuan todos tos objetos que 
habrd en pantalla usando una 
subrutina que los imprime ai 
azar en la misma, asegurin- 


1680 IF INKEY*=”0" THEN LET Y-Y 


1690 IF INKEY*=”P 


THEN LET Y=Y + 


1700 IF INKEY*="ft'‘ THEN LET X=X + 


1710 PRINT AT XB , YB; *’ " ; RT MX,HY 
; ■* “; RT XM,YMj “ f " 

1720 LET A*=SCREEN* (X,Y> 

1730 IF THEN LET X=XB- LE 

T Y=YB 

1740 IF A* =*'d" OR R* = " f '* OR A*=" 
g" THEN FOR fl=7 TO 0 STEP -J: BE 
EP .01,0: PRINT INK fl;RT X,Y;' J i“ 
: PAUSE 2: NEXT fl: GO TO 1320 
1750 IF ft*=‘*h" THEN FOR ft =8 TO S 


H MUN00 SPECTRUM 





List 



dose de que no hay ninguno 
debajo. 

1540-1590. Se inicializan las 
coordenadas del vigilante y 
las de nuestro personaje. 

1600-1790, Bucle principal 
de la fase 3. Aqui aparecen 
los siguientes pasos:; 

— Movimiento del vigilan- 
te, siempre en direccion hacia 
nosostros. Comprobando si 
choca contra las paredes. 

- Luego se lee el tedado. 

— Se imprime el malo. 

— Se obtiene ei car^cter 
sobre el que se situ a nues¬ 
tro protagonista, y se com- 
prueba si se trata de un mu¬ 
re, ladrillo, roca o diskette. 

- Ahora se imprime nues¬ 
tro mufieco, repittendose el 
bucle. 

1800-1830. Rutina de pprdi- 
da de vida de la FASE 3, 

1840-1990. Rutina de con- 
seguido. Se comprueba si he- 
mos logrado record y se 
aguarda la decisidn de volver 
a jugar o de abandonar el 
juego. 

A partir de la llnea 2000 es- 


0 STEP 2: BEEP ,003,A: NEX^ : L 
ET P=P+275: GO 5UB 2030: LET CE> = 
CD+1: IF CD=5 THEM GO TO 134-0 
1760 PRINT AT X,Y;"e" 

1770 LET X8=X: LET Y8=Y 
1780 GO TO 1620 
1790 REH 

1300 REM 4 PIERDE VIDA * 

1610 REM 

1820 LET 0=0-1: IF U<1 THEN GO T 
O 2230 

1830 GO SUB 2080: LET «*=”£": GO 
SUB 2170: GO TO 1760 

1840 REM 

1850 REH * CONSEGUIDO 1 
1360 REH 
1870 CLS 

1880 PRINT RT 4,3 
1390 LET A*="M! LO C0NSEGUI5TE 
HI": LET P=P+5000: GO SUB 2030 
1900 PRINT : PRINT : LET A* = -*PUN 
TOS: '* +STR* P: GO SUB 2838 
1910 LET R*=”RECORD;"+STR* R 
1920 IF P >R THEN LET R=P: LET fi* 
= "? ?I NUEUO RECORD H ! ” 

1930 GO SUB 2030 

1940 PRINT : LET R*= M QTRA PflRTID 
R: (S/N)": GO SUB 2033 
1950 RANDOMIZE R 

1960 POKE 60200,PEEK 23670 POKE 
60201,PEEK 23671 
1970 IF INKEY*= J, S“ THEN RUN £78 
1930 IF INKEY®*"H , ‘ THEN RANDOMIZ 
E USR 0 

1990 GO TO 1970 

2000 

2010 REM * CENTRO TEXTO 4 
2020 REH 

2030 PRINT INK 2+RND45;TAB il6-L 
EN A*/2);A*: PRINT : PRINT . RET 

URN 

2040 REM 

2050 REM i MRRCADORES * 

2060 REM 

2070 PRINT INK 2;AT 19,0;"33Sa*3 
aaaaaaaaaaaaaaaaaaaaaaaaaae 

aaaa aaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaa" 

2080 PRINT INK 6,AT 20,2;"PUNTOS 
: ";P;RT 20,21;"OIDAS: ";U 

2090 RETURN 
2100 REM 

2110 REM * INDICADOR FA5E 4 
2120 REH 

2130 CLS : FOR fl=l TO ". FOR 8=1 
TO 7: PRINT RT 11,12; INK B;”Ffi 
SE F: BEEP .005,8: BEEP .005,R 
; NEXT B: PAUSE A: NEXT R: CLS ; 

RETURN 
2140 REM 

2150 REM * IMPRIME EN X,Y 4 
2160 REM 

2170 LET X=1+INT IRNDU7) : LET Y 
=1+INT (RND129) 

2100 Ir SCREEN* [X,YJ<>“ *' THEN 

GO TO 2178 

2190 PRINT AT X,Y;A*< BEEP ,001, 
25; RETURN 
2200 REH 

2210 REM * DE5TRUIDO 4 
2220 REM 

2230 BEEP 1,0: BEEP 1,-10: CLS : 

PRINT AT 4,0 

2240 LET R*=‘‘GAME OUER”: GO SUB 

2030 

2250 GO TO 1900 


tan las subrutinas que usa el 
programa de un modo gene¬ 
ral. Estas son: 

2000-2040. Rutina que im¬ 
prime el texto centrado. 

2050-2090. Imprime marca- 
dores de ia parte inferior. 

2100-2140. Subrutina indt- 
cadora de FASE. 

2150-2200. Imprime al azar 
el car£cter contenido en A$ 
en un lugar vacio de la pan- 
talla. 

2210-2250. Rutina de final. 
Mensaje GAME OVER y salto 
a la Ifnea 1900. 
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JUEGOS 


DYZZY 

COMENTARIO 

DYZZY es un juego divertido cuyo 
protagonists es un simpdtico "huevo" que trata 
de destruir at mago ZAKS haciertdo una pocima 
magica en un caldero at que habra de arrojar 
todos los ingredientes que vaya recogiendo por 
tas pantallas del juego. 

Los grdficos de este juego son muv variados 
y coloristas y los movimientos de DYZZY y del 
resto de figuras son excelentes. La 
presentation del juego estd muy cuidada e 
incorpora una excelente melodta. Todos los 
escenarios ban sido cuidados y ofrecen 
multitud de detalles simpaticos, muchos de 
elfos dificiles de programar. 



La aventura en si no es excesivamente 



original pero la trama del juego es entretenida y 
averiguar los diferentes trucos para pasar cada 
una de las dificultades que se nos presentan 
Mega a convertirse en una cuestidn de 
"honrilla", por lo que es dificil separarse del 
SPECTRUM sin haber llegado un poco mas 
lejos que la vez anterior. 


DYZZY estaba explorando el bosque encantado en 
buses de flares, bayas y un pala con el que hacerse un 
bastbn. cuando descubrio una misteriosa lapida. 
Limpiando el lodo que la cubria le fue posible leer la 
siguiente inscripcion: 

La Pocima Avawiffover 
DYZZY recordd que su padre fe habia habiado de 
aquella pocima "es la linica manera de liberar a nuestro 
pais destruyendo al maivado brujo ZAKS", DYZZY 
TEMBLO ASUSTADO cuando recordb bstas palabras. 

ZAKS trajo el miedo al pueblo, con sus hechizos que 
hacen que la gente se envejezca, vuelve ciegos a los 
hombres y hace que llueva los domingos por la tarde a la 
hora del CRICKET. DYZZY estaba decidido a poner fin a 
todo esto y convertirse en el heroe del lugar. 
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Juegos 


Haste ahora se ha mantenido el 
equilibria politico y ha habrdo paz 
par todo Berlon. Pero a traves de 
una puerta inter-dimensional en las 
mazmorras del malMico nigromante 
Acamantor, han aparecido ahora 
cuatro principes endemoniados, 

Ha recaido sobre ti, el Oltimo de ios 
Grandes Druidas, la tarea de 
destruir a las principes y de cerrar la 
puerta, 

Los principes endemoniados andan 
acechando por las tenebrosas 
profundidades de la mazmonra, y 
solamente pueden destruirse por 
medio de tu poderoso hechizo, que 
en este caso debe de transportarse 
por medio del tacto. 

For toba la mazmorra encontrarSs 
areas que contienen hechizos de 
una fuerza formidable para ayudarte 
en tu busqueda y Pentogramas de 
vida, que revitalizarSn totalmente tu 
esencta de vida. Use estos recur sos 
con prudencia a fin de sobrevtvir el 
ataque constante de Ios monstruos 
dimensionales infemales y poder 
hacer frente a Ios principes 
endemoniados. 

Triunfa y alcanzar£s el alto puesto 
de Maestro de la luz, el mayor de 
todos Ios Druidas. Fracasa y no 
ser£s mSs qua un mediocre ingenio 
y tu alma cautiva se reunir4 con Ios 
numerosos fantasmas de Ios que te 
han precedido, perdidas en las 
mazmorras de Acamantor. 


DRUID 

DRO-SOFT 


DRUID as un juego an al que 
tendrds qua recorrer un 
intrincado laberinto buscando 
Ios hechizos que te ayuden a 
destruir a las fuerzas del mal. 
La presentaci6n es muy 
©spectacular, ya que junto a 
un buen dibujo de portada, al 
mismo tiempo que a I efeetuar 
la carga del programa, 
podemos escuchar una 
melodta muy bien adaptada 
para el ordenador, 

DRUID tiene una gran 
abundancia de grdficos muy 
elaborados, sin embargo el 


espacio "util" donde se 
desarrolla el juego es algo 
reducido. En el, el laberinto se 
desplaza mediante un 
"SCROLL" en cuatro sentidos 
muy suave. 

Los sonidos de ambiente, Ios 
movimientos y la rapidez de 
respuesta son otra buena 
caraeteristica de DRUID. 

La dificultad no as muy 
elevada pero hay que estar 
muy atento a Ios multiples 
enemigos que van apareciendo 
en pantalla a lo largo de la 
aventura. 
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dificultad de Gsta fase no es muy ele- 
vado y basis ir encontrando los dife- 
rentes objetos que aumentan nuestra 
energia y esquivando a los enemfgos 
para pasar por el laberimo de pantallas 
que formed la casa, Una vez fuera de 
ella y con las Haves de la mo to en la 
mano F se pass a la segunda fase don- 
de hsy que ir adelantando los coches 
que vamos aicanzando, 6sta etapa es 
bastante dificil de superar y en eUa po- 
demos apreciar un desplazamienio o 
scroll rdpido y suave, y el movimiento 
de la moto tembten muy eonseguido. 
La tercera fase comienza al llegar al 
institute; otro laberinto de pantallas sL 


jAhrrrg!, iqu£ dolor de cebeza 1 . No 
vuelvQ a dar oua fiesta hasia que no pa 
sen das meses. jTomif si hoy tengo un 
examen de evaluadbn a las 10: y todavia 
aqui... 

Rea Inwile FUNKY PUNKY k> tiene di 
ficil. Ha de ir al institute para realizar al 
examen que tiene a las TO de la manana 
Son las a y todavia t*me que reeoger lo¬ 
des sus casus revudtas entre los dasper 
dicios de la fiesta que tuvo lugar en so 
apanamento la noche anterior 
Cuando las reuna, ha de coger su tides 
motor e ir at institute atravesando las pa 
Ngrosas calles de la tiudad, Ilonas de con 
ductores medio dormidos que se d^rigen a 
su trabajo. 

Una vez aili, debark encontrar el aula 
donde se va a realizaf el examen y afron- 


FUNKY PUNKY es una aventura en 
la que su protagonists sale de su ha- 
bttacibn para acudir a un examen. Pa¬ 
ra ello deberS recoger una serie de ob- 
jetos que hay dispersos por las diferen- 
tes habitaciones de la casa y que Se son 
necesarios para coger su moto y po- 
der acudir al institute, sorteando el trei- 


milar al de la case, donde hay que 
eeonirar el aula del examen. Una vez 
en elta f y si (levamos los objetos perti- 
nentes, comienza la cuarta y ultima fa¬ 
se: el examen, que consta de 10 difL 
dies preguntas a las que hay que res¬ 
ponder afirmativa o negativamente. 

En general los grSficos estAn muy 


tar con roda resignation las diez pf&gun 
tas que decidirtn su aptitud para superar 
el curso, 

Para realizar el examen mr& necasarra 
que Iteve su pluma y la calculadora cien- 
Tifica. 

Por supuesEo, no ha dasayunado y pa¬ 
ra man toner sus enengias a un atto nivel 
deber£ tomar los DONUTS y beber los bo- 
tetlines que enouantre. Un cigarrillo des- 




fico, para real tzar su examen. 

Podemos dividir 6ste juego en cua- 
tro partes: la primera transcurre den* 
tro de !a casa y en alia podemos con- 
templar una gran variedad de gr£ficos 
muy vistosos y elaborados, el nivel de 


elaborados aunque no hay una gran 
variedad de enemigos. 

La pantalla del juego presents un 
simpatico dibujo acompahado de una 
meiodia alegre y pegadiza. 

La idea de la aventura es muy origi¬ 
nal aunque utilise el clasico recurso de 
las pantallas en forma de Jaberinto. 

Como hemos dicho, la meiodia ini 
cial es muy buena y durante el resto 
del juego algunos sonidos van ambien 
tando ligeramente las distintas situa 


pu£s de la comida lampoci) le sentar^ 
mal. 

Los efectos tie la resaca harqua vea 
bichos extrafios que Eendr^ que evitar si 
d&sea contmuaf &us andanzas. 

Pata ver el riempo que le resta hasta la 
hora del examen, debar! recoger el rek>j 
Y para prxier atorir el wndado de la moto 
lendra que user su Have. 

liDeprisar, queda poco tiempo y el ta¬ 
el institute es largo 


q 


_ i 
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E! objeto del ju&go es absorber 
a! dr Sfln liner V sustituirlo como 
regidor det panorama. Una vez lo- 
qrado, el jugador puede supres- 
paciar a un nuevo mtmdo y tratsr 
de fog ratio de nuevo. 

Una vez que se baya insertado 
al cassette con al juago, aparec-e 
rfl al titulo an la panialla. Al pul' 
sar cualquier taels se la pedir$ 
que rnscriba un numefo da pano¬ 
rama, del 0000 a 9999. 

Una vez inacrito el mjmero de 
panorama y pulsar relomu. se le 
podsri que marque un numara de 
clave de 8 cifras r al msnos qua 
haya eleqido panorama 0000, que 
no lo require. 

Pasados unos segundos. a pa 
fecerfi la superficie panorSmica. 
El Sentinel y los Sentries perma- 
necerSn inactivos hasta que el ju- 
gadof gaste o absorbs energia. 
Esto le permit if 3 mirar alrededor 
y pi an tear su ataque al Sentinel. 

Una vez activados, el Sentinel 
y los Sentries giran despado, 
barriendo el panorama, buscando 
cuadfos que contianen mis de 1 
unidad de energia. Si pueden ver 
COn claridad uno de eStOS Cua- 
dros. el Sentinel/Sentry retfucir£ 
la engergi£ a 1 unidad. absorbien- 
do 1 unidad a la vez y creando un 
irbol al azar en el panorama. De 
esta forma, si robot sa convierte 
en bloque y el bloque se convier- 
IS an irbol. 

Se absorbe y se creen cosas. 
haciendo girar las miras y cen- 
trindolas en la superficie del cua- 
drg bajo el objeto a ser absorb*- 
do/crcadt> Sin embargo has blo- 
ques actiian como extension de 
la super! ide del cuadro. y las mi- 
ras deberan ssr dirrgidas a I costa - 
do del bloque. se pueden apilar 
los bloques y cdocarsa cosas so* 
fare alios. 

La energia disponible aparece 
mostrada en la parte superior iz- 
quierda de la pantalla en forma de 
iconos de robot, bloque y 3rbol. 
Un robot de color [no azulJ vale 
por 15 unidades de energia. 

Para moverse alrededor del pa 
norama, se debe crear un robot y 
entonces r con las mairas aun en 
Candidas, pulsese la tec la de 
transference. Afif &e pasari a I 
nuevo robot, da cars al antiguo 
robot, que puede a bora ser ab¬ 
sorb (do. El indicador en la pane 
superior derecha de la pantalla es 
el de advenenoa de barrido. Si le 
Focaliza un Sentinel/Sentry, el in 
dicador aparecerA lleno de motes 
Tiene apro*imadamente 5 segun- 
dos para desaparecer de vpsta an¬ 
tes de que se le agote la energia. 
1 pun to a la vez. Una vez agota 
das tod a la energia, queda absor 
bkto totaJmente y acaba la ju 
gada. 

El volumen de energia total en 
el panorama permanece consign 
le. de forma que si se absorbs 1 
unidad de su energia, se coloca 
r3 al azar un Srbci en el pa¬ 
norama. 

Sp e3 mdicador de advene noa 
de barririo solo se encuentra me 
dio lieno de motas, esto signify 
r£ que el Sentinel/Sentry puede 
verle pero no puede ver el cuadro 
en ei que permanece usted situa 
do 



SENTINEL 





SENTINEL 

SENTINEL es un 
juego sobrecogedor 
tanto por su temfitica 
como por los desola 
dores escenarios en 
los que transcurre la 
accidn. 

Podrlamos calificar 
a SENTINEL como un 
simulador de una rea¬ 
lidad future: el con¬ 
trol de un robot que 
nos trasmite la visidn 
de otro mundo a tra- 
ves de un monitor de 
video, 

Los ESCENARIOS 
(10.000 en total} repre- 
senta diferentes caras 
de un PLANETA cuyo 
paisaje es un enjam- 
bre de figuras geome- 
tricas. 

Memos de descubrir- 
nos ante el m£todo de 
elaboracidn de los 
grdficos, as! como 
tambien es de desta- 
car la originalidad del 
tern a y su ejecucidn. 

La pantalia de pre- 
sentacion y los soni- 
dos que amenizan y 
dan ambiente al juego 
tambi^n tienen una 
gran calidad. 

SENTINEL es un 
juego que puede pare- 
cer en un principio 
complicado de mane- 
jar, no sdio por el nu- 
mero de teclas que 
utiliza sino por la can- 
tidad de situaciones y 
posibi Iidades que 
ofrece; pero una vez 
conocido su manejo 
es apasionante. 

Los movimientos 
son algo lentos, pero 
esto es totaimente 
disculpable dada la 
complejidad que en- 
trana mover en panta- 
Ma unos paisajes tan 
elaborados. 
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HISTORIA 


como ya hemos mencio- 
nado est£n muy elabo- 
rados y consideran mul¬ 
tiples posturas de los ju- 
gadores as! como la agi- 
tacidn del publico en ca- 
da canasta. 

El nivel de dificultad 
puede ser seleccionado 
por el jugador pudiendo 
enfrentarse a un segun¬ 
do jugador o bien al or- 
denador qua hace las 
veces de Fernando Mar¬ 
tin. 


Cuandn saigas a la cancha 
Le encontrarj$ nervioso, 
preocupado, con desoos de 
hate* un huen partKlo y con 
rmedo de fallar los tiros de 
ires ponies. 

imagina que. ademAs, tie- 
nes quo enfreniarte a Fernan¬ 
do Martin, a un aut&nlico nu- 
mero uno. que no va a per 
do nar tt 


mulacibn, toaos sus de- 
talles est^n cuidadosa- 
mente estudiados para 
conseguir un juego exci- 
lante y divertido por su 
"realismo". 

En la pantalla de pre- 
sentacidn aparece una 
simp^tica caricatura del 
famoso jugador ligera- 
mente animada y con 
una buena melodia El 
resto de sonidos del jue¬ 
go est£n destinados a 
proporcionarle unos 
adecuados efectos am- 
bientales. Los graficos 


Los juegos de "simu- 
lacibn" entranan a la bo¬ 
ra de programarlos una 
dificultad superior a los 
demSs dado que necesi- 
tan ajustarse lo m£s po- 
sible a la realidad que si- 
nriulan, no basta con 
que el juego funcione 
bien y sea divertido sino 
que adernds debe pare- 
cer real, y esto implica 
un duro trabajo. 

Fernando Martin Bas¬ 
ket Master cumple per- 
fectamente todo lo exi¬ 
gible a un iuego de si- 


Todo$ I us mOscukH se po- 
nen en tensidh, te adrenalins 
Huye pen m$ venas y (u cere- 
bfo debe avenflua* cute son 
los ponies dGOiies de tu ad¬ 
versaria 

El baloncesto e$ el deporte 
que mefor conjuga el {tesairp- 
Ik) flsjco del ser hgmano, se- 
gun un ord&nadof espeoaJua - 
do en depones dd IstMuto 
Tecnolfigico de Masaehoseis. 

Fernando Martin Baskei 
Master k una prueba dara de 
que tampan el baloncesto 
puede desaupliar te mente 
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JUEGOS 



Completa cada record- 
do en el plazo de tiempo 
disponible sin consumir 
todo el combustible. Usa 
los mandos de izquier- 
da/derecha para dirigirte 
hasta la ATV y luego sal- 
ta a el mirando en el mis- 
mo sentido y comienza el 
recorrido. Usa arriba/a- 
bajo para acelerar/frenar. 
Salta para lograr remonte 
adicional cuando subas 
por una rampa y tambien 
para superar orilias certa- 
das sin chocar. Para as¬ 
cender por pendientes 
pronunciadas, wheelie 
lentamente hacia ellas y 
salta repetidamente para 
subir. 

Si chocas y sales des- 
pedido, salta para levan- 
tarte y luego montarte en 
tu ATV. 


ATV (ALL 

TERRAIN VEHICLE! 

"Vehiculo todo 
terreno” es un juego 
de simulacion en el 
que debes ir 
superando cada una 
de sus distintas 
etapas sin rebasar el 
tiempo m&ximo 
permitido, el reto es 
emocionante y una 
vez se empieza a 
jugar cuesta trabajo 
dejarlo. 

La pantaMa de 
portada presenta un 
buen dibujo durante 
la carga del 
programa a la que 
sigue una buena 
melodla muy bien 
adaptada al 
SPECTRUM. 

Los grdficos son 
buenos y variados y 
los movimientos del 
conductor y su 



vehiculo son suaves 
y dgile$, sin embargo 
la superficie "util" en 
pantalla. es decir, la 
ventana en la que se 
desarrolta el juego es 
muy reducida. 

ATV presenta 
tambi§n la 
posibitidad de 
establecer una 
competicidn con un 
segundo jugador. 

Los sonidos son 
adecuados y cada 
vez que se supera 
una etapa cambia el 
paisaje y el nombre 
de la pantalla se 
imprime en grandes 
caracteres. 
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MUROS GALACTICOS 


Como controlador es¬ 
pecial de la frontera elec- 
tromeccinica entre los dos 
polos de atraccion de los 
planetas XENOS y COXE- 
MOS, has de impedir qua 
las naves espaciales y los 
satblites moviles choquen 
contra estas barreras. 

Para impedir que coli- 
sionen puedes abrir un 
hueco en cada barrera 
empleando las tec las: 

Q. Abre barrera de la 
izquierda. 

P. Abre barrera de la 
derecha. 


COMENTARIO DEL 
PROGRAMA 


En bste programa el 
elemento fundamental 
para el bxito es sincroni- 
zar bien los movimientos 
de la nave y el satblite con 
el de apertura de las 
barreras. 

10-220. IniciaSizacion y 
presentation. Se fija cur¬ 
sor en minuscules. Se re- 
definen los UDGs. y se fi- 
jan los colores POKEando 
directamente en las varia¬ 
bles del sistema. Luego 
se imprime el tituio y tras 
una pausa comienza el 
juego. 

230-350. Dibuja el pai- 
saje. Fija los colores. Im¬ 
prime Jos marcadores y 
las estrellas. 

360-410. Dibujo de los 


muros, Se realizan las 
dos barreras. 

420-550. Se inicializan 
las variables que se van a 
usar durante el juego. 

560-860. Bucle princi¬ 
pal del juego. Se lee el te- 
clado. Se imprimen las 
barreras y a continuacibn 
lo dos objetos mbviles. 
Las comprobaciones son 
hechas por medio del co¬ 
lor, con la tuncibn ATTR. 

870-960. Rutina de 
cheque del OVNI con la 
barrera. 

970-1020. Rutina de 
cheque del planeta con la 
barrera. 

1030-1060. Subrutina 
que increments e impri¬ 
me los puntos. 

1070-1250. Final por 
fallos. Se imprimen los 



mensajes correspondien- 
tes, se comprueba si ba- 
ttmos ei recr 1 y se toca 
una corta melodia. 

1260-1340. Melodia de 
R.I.P. 

1350-1460. Esta es la 
subrutina mbs curiosa del 
programa, imprime una 
frase en et interior de un 
recuadro (ajustado por 
supuesto al tamano de la 
frase con un color al azar. 

1470-1610. Redefirvi- 
cibn de los U.O.G.s. me¬ 
diants un bucle, se leen 
las sentencias datas de 
las lineas 1560-1610, y se 
almacena el valor leido en 
la zona de los U.D-G.s. 



REM 4444*44*444*4444*444 

; REM 4 MUROS SALACTICQ5 4 
3*5 REM 4*44**444*4*44444444 
4-® REM 

50 REM - FIJR HINUSCULAS - 
60 REM 

70 POKE 23658,0 
80 REM - REDEFINE USDS - 
90 GO SU8 1500 
100 REM 

110 REM - FUR COLORES - 
120 REM 

130 POKE 23693,7 
140 BORDER 6 
150 CLS 
160 REM 

170 REM - T3TULO - 
180 REM 

190 PRINT RT 9,0 

200 LET R*="HUROS GALACTICCS” 

210 GO SUB 1380 

220 PAUSE 200 

230 REM 

240 REM - DIBUJA PRISAJE - 

250 REM 

260 BORDER 0 

270 PAPER 0 

280 INK 7 

290 CLS 

300 PRINT RT 0,0;" PUNTOS:08 

0 FRLLOS.08 

310 REM - IMPRIME ESTRELLAS - 
320 FOR 3=1 TO 50 

330 PRINT RT 1+IHT tRND*20l,INT 
(RND*31> ; " 

340 NEXT 3 
350 REH 

360 RE n - Dieujfi HURQ5 - 

370 REM 

330 FOR a-2 TO 21 

390 PRINT RT a , 12j INK 3i Ji a J, jflT 
a,21; INK 6; 

4-00 NEXT a 
410 REM 

420 REM ^INICIRLlZft URRIRBEE3- 
4-30 REM 
440 LET Xl=10 
450 LET 01^0 
>?0 LET X2=10 
LET D2=0 
4 LET y=0 
^90 LET yb=y 
500 LET 9 =500 
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VI 


510 LET 2=30 


1090 REM 

520 LET z b =z 


1100 LET p = P u 

S'30 LET v i =8 


111* BORDER 0 

54^ LET pu=0 


1120 POKE 23693,7 

55© R£H 


1130 CL5 

S6* REM - BUC-LE PRINCIPAL - 


1140 PRINT AT 4,0 

570 REM 


1150 LET a* = *‘GAHE OUER" 

590 IF 01=0 THEN IF IMKEY*="q" 


1160 GO SUB 1380 

THEN LET Dl=-1 


1170 LET ft * = *'TU PUNTUACION "+5T 

590 IF Dl=-1 THEN PRINT RT 2+XI 


ft* (Pi 

, 12; - RT 21-X1,I2; ” - 


1130 SO SUB 138* 

600 IF Dl=i THEN PRINT RT 2+XI, 


1190 GO SUB 1280 

12; INK 3;“fi“;AT 21-XI,12; INK 3 
; “m“ 


1200 LET fi*=“OTRA PARTIDA: (S/Ni 

610 LET X1=X1+D1 


1210 GO SUB 1380 

620 IF XI<1 THEN LET Di=i 


1220 IF INKEY*="S” OR INKEY *="&" 

630 XF XI>9 THEN LET DI=0 


THEN GO TO 26* 

64-0 IF D2=0 THEN IF IMKEY*=‘‘p” 


1230 IF INKEY*=’'n" OR XNKEY*="N ,r 

THEN LET D2=-l 


THEN RANDOMIZE USR 0 

650 IF 02=-1 THEN PRINT AT 2+X2 


1240 GO TO 1220 

,21;" “;at 2I-X2,2l;” " 


1250 REM 

6b» IF 02=1 THEN PRINT AT 2+X2, 


1260 REM - MELODIA - 

21; INK 6; "£t”; AT 21-X2,21;" 


1270 REM 

670 LET X2=X2+D2 


1280 DATA .5,-3,.55,-3,.2,-3,,65 

630 IF X2<1 THEN LET 02=1 


,-3,.5,0,.25,-1,.5,-1,.25,-3,.5, 

690 IF X2>9 THEN LET 02=0 


-3,.25.-4,.75,-3 

700 PRINT AT 18,yb;" *'; AT 11,9 


1290 RESTORE 1280 

b# 


1300 FOR a =1 TO 11 

710 PRINT INK 2; AT 10,9; "££'*; AT 


1310 read aa.aaa 

11, y;"MX" 


1320 BEEP aa.aaa 

720 LET yb=y 


1330 NEXT a 

730 LET y =y+l 


1340 RETURN 

74-0 IF y >29 THEN LET y=0: GO SU 


135© REH 

B 1030 


1360 REM - IMPRIMIR A* - 

750 IF y=lS THEN LET g=1000 


1370 REM 

760 IF ATTR (18,y+U=3 OR ATTR 



<10,y+11=6 THEN GO SUB 930 



770 IF 9=1000 THEN GO SUB 300 


1390 INK 2+RND+5 

780 IF g=500 THEN GO TO 530 


1480 LET C =LEN a *+2 

790 GO TO 580 


1410 LET b=16-c/2 

800 PRINT AT 13,Zb;“ AT 13,2 


1420 PRINT TAB (b);b*( TO C) 

; INK 4; "CD" 


1430 PRINT TAB (Bl;IMMERSE 

810 LET 2b=z 


1; PAPER 9; a*; IMMERSE 0; 

820 LET Z=Z-1 


144* PRINT TAB * b) ; b* ( TO C) 

830 IF z <0 THEN LET Z=30: GO 5U 


1450 PRINT 

B 1030 


1460 RETURN 

840 IF ATTR (13,ZJ=3 (Ml ATTR (1 


1470 REM 

3,z»=a THEN GO TO 890 


1430 REM - DftTAS U.D.G. - 

850 RETURN 


1490 REM 

860 REM 


1500 RESTORE 1568 

870 REM - OUNI CHOCA - 


1510 FOR R=0 TO 71 

880 REM 


1520 READ B 

890 PRINT AT 13,2 + 1; INK 4-; "EE" 


1530 POKE USR "A"+A,B 

900 BEEP .2,-10 


1540 NEXT A 

910 PRINT AT 13,z + l; " 


15S0 RETURN 

920 LET 2=30 


1560 DATA 254,153,190,250,258,24 

930 LET Vi=Vi+1 


2,254,8,8 

94« PRINT AT 0,27;Vi 


1570 DATA 255,153,231,153,231,15 

950 IF v i =8 THEN GO TO 1100 


3,255,57 

960 GO TO 850 


1588 DATA 15,62,255,117,63,26,48 

970 REM - PLANETA CHOCA - 


,156,240,124 

980 PRINT AT 10,y-l; INK 2;"E£" 


1590 DATA 255,174,252,56,12,170, 

;AT ll,y-l;-£E" 


17,164,24 

990 BEEP .2,-10 


1600 DATA 186,149,72,28,3,14,61, 

1000 PRINT AT 10, y-1; ** “; AT 11, 


53,123,91,238,255,192,248,188,22 

y-i; “ 


8,126,174 

1010 LET y =0 


1610 DATA 223,243,255,249,187,11 

1020 GO TO 930 


7,61,59,15,3,247,175,110,233,220 

1030 LET PU=PU + 10 

1040 PRINT AT 8,12;PU 

1050 BEEP ,05.IP 

1060 RETURN 

1070 REM 


,138,240,192 

1030 REM - FINAL POP FALLOS - 


A8CDEFGHI 

a m**w&*\v 


MUNDO SPECTRUM 23 





eustfucDfi ce fjchr 


fichiI: 2 
MoheflE ..- 
r>mecc ion 

reL£Ft3NQ. 
C . POSTAL 
PCBLftJCIGM 


EN Lft HEMORIR CHSFN 65<J F TCHRS 
FICHfi:2 


jurnxto 

C/ RHCHOfl 
55555 

22222 

LEPE TRHer 


NQH6RE -,* 
OIPECCXQN 
.TELEFONO, 

C, POSTRL 
poet, pc ION 


pedir la introducci6n de 
esa ficha nuevamente, 
Para salir de esta opcion 
bast a con pulsar el co- 
mando OUT (el comando 
que esta en la tecla 0, no 
las letras 0, U y T) a la 
pregunta del termino de 
la siguiente ficha. 

2. — CORREGIR FI¬ 
ONAS YA HECHAS: 

Para usar esta opcion 
hay que buscar previa- 
mente la ficha que se de¬ 
sea modificar con la op- 
cidn 3, volver al menu y 
pulsar esta opcion. 

A la pregunta de "TER¬ 
MING) A MODIFICAR?" 
hay que responder con el 
nombre del termino que 
se desea corregir. 

3. — BUSQUEDA DE 
FICHA: 

Supongamos que que- 
remos ver todas las fichas 
que hay en memoria. En- 
tonces nos bastaria con 
responder con la letra S a 
la pregunta "PISTA?". 

SI por el contrario, 
queremos buscar (en el 
caso de que hubiferamos 
elegido el formato de fi¬ 
cha del ejempio 1) todas 
las fichas cuyo nombre 
empiece por ANT, enton- 
ces hariamos: 

PISTA? NOM- 


Este puede ser un pro- 
grama muy Gtil para 
aquellos que poseen gran 
cantidad de cosas sus- 
ceptibles de ser catalo- 
gadas. 

Como su propio nom¬ 
bre indica su functon es la 
de servir de fichero flexi- 
ble-multiuso. ^Que es eso 
de "flexible-multiuso"? 
Pues sencillamente que si 
lo que a uno le interesa es 
disponer de una especle 
de agenda de direcciones 
y telefonos, puede definir 
el formato de las fichas 
m£s o menos asi: 

Nombre ... (ejempio II 

Direccibn ... 


Si por el contrario, lo 
que necesita es un archi- 
vo de notas, s6lo tiene 
que definir las fichas co- 
mo: 

Curso: .... lejemplo 21 

Trimestre: . 

Fisica: .. 

Qurmica: ................. 

Etc. 

Es decir, en este pro- 
grama se pueden definir 
fichas con campos y el 
nombre que se desee, de 
la longitud que se desee 
y en la longitud que que- 
ramos (con el unico tope 
de la memoria del ordena- 
dOT, claro estb). 

Cuando se pone en 
marcha el programa hay 
que esperar durante unos 
instantes a que este car- 
gue en memoria el bloque 
de c6digo maquina. Se- 
guidamente preguntarS 
por la cantidad de tbrmi- 
nos o campos de que 
constarb cada ficha. (Si 
siguieramos el ejempio 1 
responderlamos con el 
numero 3). Despubs irS 


Cuando se term in a de 
escribir una ficha el orde- 
nador pregunta si los da¬ 
tes son correctos y en ca¬ 
so de responderse nega- 
tivamente procederia a 


preguntando por el nom¬ 
bre de cada termino, que 
no podrS exceder de ,10 
caracteres, y por la longi- 
tud maxima que va a te- 
ner (no hay limitacion, 
salvo la que mponga la 
memorial 

Una vez cumplimenta- 
dos estos requisites obli- 
gatorios aparece en pan- 
talla el menu principal, 
que ennsta de 9 opcio- 
nes: 

T. — INTRODUCIR FI¬ 
CHAS: 

Al pulsar esta opcion, 
desaparece el menu y se 
indica en la parte superior 
de la pantalla el numero 
de fichas que caben en la 
memoria, asi como el nu~ 
mero de ficha que se es¬ 
ta introduciendo. 


Para los curiosos, he aqui el listado ensambla 
dor de las rutinas de borrado, busqueda y orde 
nacion allabbtica de fichas, asi como de la pe 
quena rutina que "engorda” las letras. 


INC HL 
DEC BC 
LD A,C 
OR B 

JR NZ, 40969 
LD HL,64181 
LD (23606) .HL 
RET 


HL.15616 
DE,64437 
BC,0076B 
A,(HL) 
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BRE:ANT (ENTER! 
y obtendriamos to que 
deseamos. Si tenemos un 
fichero de libros y quere- 
mos encontrar todos los 
libros de, por ejemplo, 
Cervantes, escribiriamos: 

PISTA? AUTOR: MI¬ 
GUEL DE CERVANTES 

En el caso de que lo 
que busquemos no exis¬ 
ts, el ordenador respon¬ 
ded con "NO HAY MAS 
FI C HAS" y retornara a I 
MENU. 

4. - BORRAR Fl- 
CHAS: 

Esta opcidn es como la 
2. Primero buscamos con 
la opcidn 3 la ficha que 
queremos suprimir, retor- 
namos al menu y pulsa- 
mos esta opcidn. 

5. - ORDENAR AL- 
FABETICAMENTE: 

Esta opcidn ordena al- 
fabdticamente (mis 
correctamente, ordena 
en funcidn de los codigos 
ASCII) las fichas en fun¬ 
cidn del t&rmino que le 
indiquemos. 

6. — GRABAR FfCHE- 
RO: 

Se pide un norr.bre (no 
mayor de 8 caractefes) y 
se procede a grabar y ve- 
rificar el fichero en una 
cassette. 

7. - CARGAR FICHE¬ 
RO: 

Como la 6. solo se car- 
ga un fichero de una cas¬ 


sette a memoria. pATEN- 
CIONIf, si se intenta car- 
gar un fichero con distin- 
to formato de fichas al 
definido al comenzar el 
programa los resultados 
pueden ser catastrdficos. 

8.- NUEVO TIPO DE 
FICHERO: 

Permite redefinir un 
nuevo formato de fichas 
distinto al definido al co- 
mienzo del programa. En 
realidad esta opcidn hace 
una llamada al inicio del 
programa, por lo que el fi¬ 
chero que hubiera en me¬ 
moria antes de usar esta 
opcidn quedaria rnutiliza- 
do. 

9.- IMPRESORA: 

Como su nombre indica 
pasa a impresora las fi¬ 
chas comprendidas entre 
el numero puesto en la 
pregunta "DESDE LA FI¬ 
CHA?" y el indicado en la 
pregunta "HASTA LA FI¬ 
CHA?" inclusive. Si en la 
primera pregunta se con- 
testa con cero. el ordena¬ 
dor listard todas las fi¬ 
chas. 

En cualquier momento 
el listado se puede in- 
terrumpir pulsando cuaf- 
quier tecla, con io que se 
retomana al menu. 

Si por cualquier motivo 
hubiera un retorno al BA¬ 
SIC, poniendo GO TO 
ME se regmsaria al ME¬ 
NU sin per*, da de datos. 


e n u 


1-INTROOtMJTO FlCffOS. 
3-CORHEen? riCHSS Yft HECfMS 
3-guscnn fichhs, 

1-eOfMWR FKHflS. 

s-omENrnvmpiffiericwEtfnE. 

ecuflBfin fichero. 

7-aWSflR ■- FTCKERtt. 

°11H» PEJEicnewr, 


OPCIOM 


Ejemplo de como lista a impresora unas fichas 
dedicadas en este caso a libros y que fueron de- 
finidas del siguiente modo: 


FICHA: 1 

TITULO...,DON GUIJGTE 

AUTOR,-.MIGUEL I>E CERVANTES 

EDITORIAL.PLANETA AGOSTINI 
A/Q....... 1983 

GENERO....NOVELA 


FICHA: 2 

titulo.... hamlet 

AUTOR.....UILLIRM SHAKESPEARE 
EDITORIAL.ANAGRAMA 

a/ o......,loae 

GENERO. . . . L'KAHA 


F ICHH- 3 

TITULO.... LA CELEST JNA 
AUTOR.....FERNANDO DE ROJAS 

ed rr orial.se ix barral 

A/O.1979 

GENERO.... NOVELA 


FICHA: 4 

TITULO...,LA CGLHENA 

AUTOR.....CAMILO JOSE CELA 

EDITORIAL,PARANINFO 
A/0....... 1931 

GENERO....NOVELA 


FICHA: S 

TITULO_ROMAMCERO GITANO 

AUTOR.ANTONIO MACHADO 

EDITORIAL.LABOR 

A/0-... 1965 

GENERO....POESIA 


PROGRAMA FICHERO 


1 REH FICHEROStt®A.H.G. SOFTUA 
RE 1996 

2 CLEAR VAL '■6443d" : BORDER P 
I/PI: PAPER NOT PI; INK UAL "9”: 

CLS : POKE VAL “23609"/VAL ”15" 
PRINT AT VAL "IO",NOT PI;"E5PE 
RE UN HOHENTO" 

3 FOR N=PI/PI TO INT (EXP 1J: 
READ «*: FOR T=PI/PI TO LEN A$- 

PI/PI STEP VAL “2": LET B=16*iCO 
DE A*CT>-48-7* tA*fT) >"9"))+ tCODE 
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RS£T + 1> —4-3-7* C A$ £T + 1> >"9”) ) PC 
KF £ 3296 + i 41944 AND N > 1) + IMT (T / 
2) , S: NEXT T: NEXT H 

4 DATA "2i083DliB5FS0108037EC 
BPFB&1213230B79B020F421B5FR22365 
CC9” , ,, 2147flEilE3flD018100EDB0C93fl 
BFFE673flCiFE8CF33ABEFE6F3RC2FE47 
3AC3FE5FiS0019ii0E5BiRBE208523i3 
I0F3C91i&4803flBEFE&F3ABFFES7197D 
32BEFE7C32BFFE13C6002flC4FE22C-SFE 
2flBCFE22D0FE2flBflFE22D2FE2ACAFEED 
4BCSFE03EB43CSFEB7ED42FSB1*0*083 
2ACCFEB7£D42FA87FF2fiD0FE09562RD2 
FE097EBfl23E9F287FF8I01002Rl>0FEED 
5BCEFEB7ED52097EEB5BD4FE195677B7 
7AED5BD4FEED527703EBB7ED42FA87FF 
1SOR2RC6FEED5BD4FE1922C&FE2AD8FE 
i922O0FE2AB2FEi922D2FEED5BD6FE2R 
C6FE2387EP52FR41FFC31FFF" 

5 RANDOMIZE USR URL "23296": 
LET ME-URL "1**": LET Z=PI/PI: L 
ET NFI=Z: LET BY=URL "256": POKE 

URL "23658”.URL "3" 

6 LET P1=URL "65216": LET P2= 
URL “6S217”: LET &1=URL ”65214": 

LET D2=URL "65215" 

7 LET RQ=UAL -9993": DEF FN R 
CX>=INT CX/BY) : £>EF FN B;X,Y)=X- 
BY*PEEK Y: DEF FN CCX)^PEEK X+BY 
*PEEK (X+Z» 

3* INPUT "CURNTGS TERMINOE MAN 
EJRRR 7 ";T: DIM T$CT,URL “1*"): 
LET NC =NGT PI: DIM HCT) 

40 FOR I=Z TO T: INPUT "NOMBRE 
DEL TERMING LINE E$ ; 

FOR H=Z TO URL "10"-LEN ES; LET 
£*=£$ + *■.": NEXT H: LET T*tI>=E* 
60 INPUT "MO, DE CARRCTEREu DE 
L TERMING "; 11); " : ";H CII : LET NC 
=NC+HCI): NEXT I 

70 LET L =FN CCURL "23641") -FN 
C(URL "23635"3 +UAL ”600": LET NF 
=INT ((URL “64436"—FN CCURL "236 
35")-NC-L-URL "150") /NO: LET DI 
=L+FN CiURL "23635“): LET DIR=DI 
+NC 

3© LET PUN=DIR 

35 LET R$ = "." 

90 REM MENU DE OPCTONES 

100 CLS : LET C$="M E N U . 

., . ,.: " : GO SUB RO 

11* FOR Y =URL "3" TO URL "21": 
PRINT RT Y,Z, PRPER URL "2";“ 

NE 

XT V 

120 PRINT RT URL "4",URL "2"; P 
RPER URL "3";"1-INTRODUCIR FICHA 
5.";RT URL ”6”j URL "2"; PRPER UR 
L "3";"2-CGRREGIR FJCHRS Yfl HECM 
AS.";AT URL "8"j URL “2“i PRPER U 
RL "3";"3-BUSCRR FICHR5."JwT URL 
"10",URL '*2": PRPER URL "3";"4- 
BORRRR FICHRS.";fiT URL "12",URL 
"2"; PRPER URL "3";"5-ORDENRR RL 
r nbtl J.CRMEN » E . " ; RT URL " 14" , URL 
"2“j PRPER URL "3";"6-GRRBAR FIC 
MERO .";RT URL “16",URL "2"; POPE 
R URL "3"; "7-CRRGRR F1CHERQ. *' i RT 
URL "13",URL ”2"; PAPER URL "3" 
;"S-NUEUO TIPO DE FXCMERO,";RT V 
RL "28",URL "2"; PAPER URL "3";" 
Q_ THPRF^nilH ■’ 

”130 PRINT SNOT PI;RT Z,ORL "3", 
INK NOT PI; PRPER URL "5";"# PU 
L5E OPCION tt" 


■*V LET IS-INKEY 5 IF IS = "" OR 
I" OR THEN SO TO URL 

" 140 11 

145 IF IS="8” THEN GO TO URl "5 

150 CL5 GO TO URL I**URL "100 
0” 

10*0 REM INTRQDUCCIGN DE BATOS 
1140 CL5 . LET P$="EN Lfl MEMORIR 
CRBEN "+STR4 NF+" FIC-HRS" : PRXN 
T RT NOT PI,CURL "32"-LEN PS)/UR 
L "2“;P$ LET 0*^"FICHA:"+5TRS N 
FI PRINT RT URL “2",CURL "32"-L 
EN OS)/URL “2“ ; 0$ 

1280 PRINT RT URL "3",NOT PI': L 
ET 6-Z 

130@ INPUT CTSCG)LINE 94: 

IF CRS=“ OUT " AND 6=PI/PI) THE 
N SO TO ME 

1350 FOR J-Z TO CHCG.i-LEN RS) : L 
FT RS=RS+“ NEXT J: IF LEN RS> 

HCG) THEN LET AS=RS£ TO HCG)) 
1360 PRINT T§CG);":";R* 

1400 FOR R=Z TO HCG): POKE PUN+R 
-Z,CODE RSCR): NEXT R: LET PUN=P 
UNH1C&): LET G^G+I IF G>T THEN 
POKE P2,FN A SPUN) : POKE P1,-FN B£ 
PUN.P2): GO TO URL ”1410" 

1485 GO TO URL "1300" 

1410 PRINT SNOT PI; RT 2,NOT PI;" 

DRTOS CORRECTOS ?... . .. . 

LET IS=INKEYS IF IS=“N" THEN 
LET PUN =PUN-NC: GO TO URL "114* 

142* IF I$="S" THEN LET NFI=NFI+ 
Z: IF NFI>NF THEN GO TO URL ”145 
0 " 

1430 IF ISo"S" AND 1*0"H" THEN 
GO TO URL ”1410“ 

1440 GO TO URL "1140" 

1450 PRINT ttNOT PI;"NO CRBEN MR5 

FICHRS.. PAUSE HE: 

GO TO ME 

2000 REM MODIFICRCION DE FICHfl 
20*1 LET CS="CORRECCION DE FICHA 

GO SUB RO 

2802*INPUT 3 "TERMIHO A MODIFICAR 
7 LINE M$: LET MS=«S+RSlLEN H 
S+Z TO ): FOR B=Z TO T: IF MS=T$ 
(flj THEN GO TO URL "2010" 

20*3 NEXT R 

2018 LET N=NC: FOR S=Z TO R-Z: L 
ET N=N-HCS): NEXT 5: LET FIC=FIC 
-N: INPUT LINE OS 

2020 FOR E=LEN OS TO HCRJ-Z: LET 
Q$=0*+" ": NEXT E: FOR E=Z TO L 
EN OS: POKE CFIC+E),CQDE OSCE): 
NE XT E 

2030 PRINT RT URL "18", NOT PI; "ft 
ODIFICACION EFECTUADA" ; PAUSE HE 
: SO TO ME 

3800 REM BUSGUEDR DE FICHfl 
3001 LET CS=“BUSGUEDR DE FICHfl,. 

...: " : GO SUB RO 

3010 INPUT "PISTfl 7 LINE X4: 
FOR U=Z TO LEN X$: IF X$<U)=":" 
THEN GO TO URL "3038“ 

3820 NEXT U 

3025 IF XS CZ)="S” THEN GO TO URL 
“3880" 

3830 LET GS=XS CU+Z TO ): LET U* = 
XS C TO U-Z) +RS CU TO ) : FOR Y-Z T 
O T: IF U*=TSCY) THEN GO TO URL 
"3050" 

3040 NEXT Y 
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3060 POKE D2,FN A (DIR) : POKE DI, 
FN S£DIR,D2> 

3070 LET BT=NOT PI; POKE 65290,F 
N ft(MC): POKE 652B9,FN B(NC,6529 
0?: FOP I=Z TO V: LET BT=OT+H(I) 

: NEXT I: LET BT =0T-H ( I-Z) ; POKE 
65219,BT: POKE 65218,LEN 0$ FO 
R I=Z TO LEN &*: POKE 10I+IJ,COD 
E 9* (I): NEXT I; POKE 65273 , FN A 
(DI+Z) ; POKE 65277,FN 3(01+7,652 
76) 

3080 RANDOHIZE USR URL "65252" 
3090 LET FIC=FN CfDl): LET PUN=F 
N CIP1): IF FIC>=PUK THEM PRINT 
tlNOT PI; AT Z,NOT PI; "NO HAY HRS 

FICHP3..'*: PAUSE HE 

; 60 TO HE 

3100 GO TO URL "3900" 

3800 LET FIC=f>IR FOR 5=Z TO NF: 
60 TO 3900 

3810 NEXT S: GO TO HE 

3900 LET A*=“": PRINT RT URL "3" 

, NOT PI; "FICHA ; '*; IHT ((FIC-DIR) 

/NO+Z: LET L=UHL "4-"; LET FIC=F 
IC-Z: FOR I=Z TO T: FOR F=Z TO H 
(II: LET A*=ft*+CHR4 (PEEK IFIC+r 
)>: PRINT RT L,NOT PI; T$ (IJ ; " : “ i 
A$, *■ I”; : BEEP .003,20: NEXT F: P 
RINT CHR$ URL "8"; “ LET L=L+Z 
+ ( (Z AND LEN A$>UAL "21”)*XNT iL 
EN A$/UAL ”21”)): IF L >URL "21" 
THEN LET L~UhL ”3" 

3905 LET R*«~ M ; POKE URL "23692" 

,URL "255": LET FIC=FIC+F-Z; NEX 
T I 

3010 PRINT SNOT PI; AT NOT PI,NOT 
PI; “HRS FICHR5 7 IS/M) .......... 

LET I*=INKEY4: IF 
THEN LET FIC=FIC+Z: POKE 02,FN 
ACFIC): POKE OljFH B(FIC,D2) : GO 
TO (URL "3080“ RND X*(Z) < >"5”) + 
(URL "3810" RND X*(Z)="5") 

3920 IF I$="N" THEN 60 TO ME 
3930 GO TO URL "3910" 

4-000 REH PORRAR FICHA 

4001 LET C$=“B0RRADO DE FICMR - - . 

..60 SUB RG 

4010 PRINT SNOT PI; RT Z,NOT PI;" 

CONFIRMR BGRRADO 7 (S/H)...-... 

11 : LET. I* = INKEY*; IF I*<>"5" RND 
I*<>”N" THEN GO TO URL "4810" 
4020 IF I4="N" THEN 60 TO ME 
4025 IF (FIC+1)>=PUN THEN GO TO 
URL "4048" 

4030 POKE URL "&5242",FH 1(FIC+Z 
): POKE URL "65241",FN B.FIC+Z,U 
RL "65242"); POKE URL "65245 : ,FN 
A(FIC-NC+Z>: POKE URL "&S244",F 
N BIFIC-NC+Z,URL ”65245"): POKE 
URL "65248",FN AiPUN-FIC+Z>: POK 
E URL ”65247",FN 8(PUN-FIC+Z,URL 
"65248"): RANDOHIZE USR URL "65 
240" 

4040 LET NFI=NFX—Z: lET PUN=PUN- 
NC POKE PP FN P(PUH) : POKE P1,F 
N 8(PUN,P2) 

| 4050 PRINT RT URL "IB”,NOT PI; T 

ICHR SUPRIMIDfl"; PAUSE" ME: GO TO 
HE 

5080 REM QRDENACION RLFRBETICR 
5001 LET C*=’ORDENflClON RLFRBETI 
CflGO SUB RO 
5010 INPUT "POR 8UE TERMING ORDE 

NO 7.LINE Z$: FOR I=Z 

TO T; IF Z4=T*m ( TO LEN Z%> TH 
EN GO TO UAL "5030" 

5020 NEXT I 


5030 POKE 65224,NOT PI: POKE 652 
25,NOT PI: POKE 65221,FN RIDIR-Z 
): POKE S5220,FN B(DIR-Z,65221): 

POKE 65227,FN AtNFI-Z-Z). POKE 
65226,FN B(NFI-Z-I,65227) POKE 
65229 ,FN fl fH ID) . POKE 65226 , FN 
B * H I IS ,65229 * 

5040 LET CT=NOT PI: FOR 5=Z TO I 
: LET CT=CT + M(5? NEXT S: LET CT 
=CT-HIS-Z> POKE 65231,FN A(CT): 
POKE 65230,FN 3 (CT,65231): POKE 
65239,FN R(PUN-NO; POKE 65233, 
FN B(PUN-NC,65239) POKE 65237,F 
N RINO: POKE 65236,FN BINC,6523 
7) : LET CO=sDIR+CT-Z: POKE 65213, 
FN RICO) POKE 65212 , FN B (0-0,652 
13): LET CO-CO+NC POKE 65211,FN 
RICO): POKE 65210,FN 0(00,65211 

1 

5055 RANDOMIZE USR UAL "65311" 
5060 PRINT AT URL "10",NOT PI;"Q 
ADENACIGN EFECTUADfi": PAUSE HE: 
GO TO HE 

6800 REH GRABRR FICHERO 

6081 LET C*="GRRSRCION DE FICHER 

O > t ■ ■ i t « , « , v ‘ SO SUB RO 

6010 60 SUB * UAL "3996": RANDOHIZ 

E (PUN-DXR) ,'NC: SRUE N*CODE UAL 

"23670",UAL "2": SAUE N*CODE DIR 

,PUN-&IR 

6020 PRINT AT UAL ”10",NOT PI; F 
lASH Z; "UERIFICANDO:: UERIFY N 
4C0DE UAL "23670",URL "2": UERxF 
Y N4CODE DIR,PUN-DIR. PRINT "COR 
RECTO"; PROSE HE GO TO HE 

7000 REH CARGAR FICHERO 

7001 LET C4="ChRGR DE FICHERO... 

7010‘GO‘SUB'UAL "9996": LORD N*C 
ODE : LORD NSCODE DIR: LET PUN=D 
IR+NCiFN C(UAL "23670"): POKE P£ 
,FN R(PUN): POKE PI,FN B(PUN,P2) 

: PRINT RT URL "10",NOT PI;“CORR 
ECTQ": PAUSE HE: LET NFI=INT ((P 
UN—DIR)/NO+Z: GO TO HE 

9000 REH IHPRESQfifl 

9001 LET C$="LISTRDO EN IMPRESOR 

fl. . . ..GO SUB RO 

9005 PRINT "PULSE UNA TECLA PARR 
UOLUER AL HENU" 

9010 INPUT “DESDE LA FICHA: ";F1 
: IF Fl=NOT PI THEN LET F2=NFI-Z 
: GO TO UAL ”9020“ 

9015 INPUT HASTA Lfl FICHA ";F2 
9030 FOR F=F1+(Z AND PI-NOT PI) 
TO F2: LPRINT "FICHR. “;F: FOR G 
~Z TO T: LET 0=NOT PI: LET Ai = ”” 
3031 FOR X=Z TO G: LET 0=O+HiX): 

NEXT X: LET 0=0-H(X-Z) 

9035 LPRINT T* iG>; : FOR J=Z TO H 
(G»: LET A$=CHRS PEEK (F+NC+DIR+ 
J-Z-NC+O): LPRINT A*;: NEXT U; L 

PRINT NEXT G: LPRINT “- 

-" ; xp x 

NKEYS=“" THEN GO TO URL "9058" 
9040 LET A*="“: GO TO HE 
3058 LPRINT NEXT F: LET A$="*’ 
: GO TO HE 

9996 INPUT "NOHBAE DEL FICHERO 7 
LINE N$: IF LEN N$>UAL ”10" 

THEN GO TO UAL "9996" 

9997 RETURN 

9998 PRINT AT Z,NOT PI; INK UAL 
"6"; PAPER Z; BRIGHT Z;C*. RETUR 
N 

9999 SAUE "fitheros" LINE NOT PI 
: UERIFY "fi cheros," 
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LISTADO ENSAMBLADOR 
DEL PROGRAMA FICHERO 


AUT1NAS C/M PROGftAMA 


65248 

214/AC 


LD 

HL,44b 

lb 

65243 

11E3AO 


LD 

DE ,445 

lb 

65246 

01 

uieittu 


LO 

BC j 000 

65249 

EDB0 


LDIR 


65251 

C9 


RET 


6S252 

3HBTFC 

LFEE4 

LD 

R,(652 

lb* 

65255 

67 


LD 

H,H 

65256 

3AC1FE 


LD 

ft,1652 

17* 

Hr 




65259 

BC 


CP 

a 

65260 

F8 


RET 

H 

65261 

3RBEFE 


LD 

ft, (652 

14* 

65264 

6F 


LD 

r 

¥ 

X 

65265 

3RC2FE 


LD 

ft, (652 

ie* 

65266 

47 


LD 

U t H 

65269 

3RC3FE 


LD 

R,(652 

19* 

65272 

5F 


LD 

E,R 

65273 

1600 


LD 

b,U00 

65275 

19 


HDD 

HL , DL 

652/6 

llBEbB 


LD 

DL,233 

10 

65279 

1H 

LFEFF 

LD 

ft,(DLI 

65260 

BE 


CP 

(HL J 

65281 

08 

2005 


UR 

HZ , LFF 

65283 

23 


INC 

HL 

65284 

13 


INC 

de 

65205 

10KB 


DJNZ 

LFEFF 

65207 

C9 


RET 


65280 

00 

116400 

LFFOa 

LD 

DE,001 

65291 

3RBEFE 


LD 

R,(652 

141 

65294 

6F 


LD 

L,R 

65295 

3R0FFF 


LD 

R,(652 

15* 

65290 

67 


LD 

H ,ft 

65299 

19 


RDD 

1L , DE 

65300 

7D 


LD 

U,L 

65301 

32BEFE 


LD 

(65214 

* ,R 
65304 

7C 


LD 

R,H 

65305 

32BFFE 


LD 

(65215 

* ,R 
65300 

10C6 


JR 

LFEE4 

65310 

00 


NOP 


65311 

2201 

2RC4FE 

LFF IF 

1 D 

HL, 165 

5531* 



LD 

(65222 

* ,HL 
65317 

2R0CFE 


LD 

HL, 165 

212* 



* 


65320 

22D0FE 


LD 

(65232 

* ,HL 
65323 

2RBRFE 


LD 

HL , (65 

2101 

65326 

22D2FE 


LD 

(65234 

> ,HL 

65329 

2261 

2RCRFE 


LD 

HL , 465 

65332 

224* 

ED4BC8FE 


LD 

BC,(65 


65336 

03 


INC 


6533 7 

LD43CBFL 


LD 

(65224 

> ,BC 
65341 

a/ 


OR 

n 

65342 

£D42 


SBC 

HL ,6C 

65344 

F8 


REI 

H 

65345 

010000 

LFF 4 1 

LD 

BC * 000 

00 

65348 

03 

LFI 44 

INC 

BC 

65349 

2RCCI L 


LD 

HL * (6b 

228* 

65352 

B7 


UR 

ft 

65353 

ED42 


SBC 

HL , BC 

65355 

y 

FR87FF 


UP 

H , LFF 8 

65350 

2RD0FL 


LD 

HL,(65 

232) 

65361 

09 


HDD 

HL , BC 

65362 

56 


LD 

D „ (HO 

65363 

2RD2KE 


LD 

HL , 165 

234* 

65366 

09 


HDD 

HL f BC 

6536/ 

/L 


LD 

ft, (HL* 

65363 

BR 


CP 

D 

65369 

2BE9 


UR 

Z,LFF 4 

65371 

F287FF 


UP 

P «LFF6 

65374 

810100 


LD 

BC,000 

01 

6537 7 

2RD0FE 

LFF 61 

LD 

HL,(65 

232* 

65380 

edsbcefe 


LD 

DE * <65 

230* 

65384 

B7 


PR 

H 

65385 

ED52 


5BG 

HL , DE 

65387 

89 


HDD 

HL , BC 

65388 

7E 


LD 

H, IHL) 

65389 

ED5BD4FE 


LD 

DE, 165 

236* 

65393 

19 


HDD 

HL,DE 

65394 

56 


LD 

D, IHL* 

65395 

77 


LD 

(HL* ,H 

65396 

B7 


OR 

ft 

65397 

7fl 


LD 

ft,D 

65398 

LD5BD4FE 


LD 

DE , (65 

236) 

65402 

ED 52 


5BC 

HL,DE 

65404 

77 


LD 

(HL* ,R 

65405 

03 


INC 

BC 

65406 

EB 


EX 

DE , HL 

65407 

87 


OR 

R 

65408 

ED42 


SBC 

HL , BC 

65410 

FRS7FF 


UP 

M,LFF8 

y 

65413 

18DR 


UR 

LFF61 

65415 

2RC6FE 

LFF07 

LD 

HL,(65 

222* 

65418 

ED5BD4FE 


LD 

DE,(65 

236* 

65422 

19 


HDD 

HL , DE 

65423 

22C6FE 


LD 

(65222 

* „ HL 
65426 

2RD0FE 


LD 

HL,(65 

232* 

65429 

19 


HDD 

HL , DE 

65430 

22D0FE 


LD 

(65232 

* iHL 

65433 

2RD2FE 


LD 

HL , (65 

234* 

65436 

19 


HDD 

HL , DE 

65437 

22D2FE 


LD 

165234 

> , HL 
65440 

ED5B06FE 


LD 

DE,(65 

238* 

65444 

2RC6FE 


LD 

HL,(65 

222) 

65447 

23 


INC 

HL 

65448 

87 


OR 

R 

65449 

£052 


SBC 

HL , DE 

65451 

FR41FF 


UP 

H , LFF4 

65454 

C31FFF 


UP 

LFF IF 
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GUN FIRE 




ID REM FOR LUIS GORGE GRRCIA 
ED REM ISBl-MUNDD SPECTRUM 
35 POKE 53SQ1 103: POKE 53553 
S: BRIGHT 1: FRPER 3 s IKK S: BOR 
DER Or CLEAR 4H93S: LET REC-133: 

LET 25 = ,, LUI” 

HQ GO SUB 110 
30 GO SUB BSD 
ED GO BUS 300 

ID LET L‘B=ii: LET H-4: LET PU = 
O: LET HE-BE: LET XX=BS: LET LE = 
l: LET BR=4: LET ^EE-iB: LET 22= 
IB 

33 03 SUB BSD 
33 GO SUB 4 33 

100 00 SUE 430 

ua os sue mo 

IBB GO SUB 5BQ 

135 GO GUO IDO 

145 IF LE = 5 THEM GO BUB 5SS 

135 GO TO 30 

191 REM P 

115 LET L3 - "GUNFIRE ■ 11 : LET P=1S 
: LET R=LEN L?: PRINT INK 0:RT 3 
1 5! LG 

IBB FDR N-D TO B*R-i: FOR 0=5 T 
0 1 

135 IF POINT :N 0 =5 THEN GO TO 

sa 

BOD BEEP ■551 30 

BIB PLOT N*4 0*4-135-PJ DRAW 4 
5: DRRI4 0 4: DRAW 4 5: DRRA O 
3: DRAW 3 5: ORAL 0 5: DRAM -5 0 
DRAW 5 -1£ DRAw 20 DRAM -3 - 


BBS NEXT □: NEXT N 
335 PRINT AT 15 4= INK 1?“POR L 
UXs GORGE GARCIA”!AT 21 Q: INK 1 
!" ■: POKE 33395 103: FOR 

N=fl TO 3: PRINT : NEXT N i PRINT 
51 : 11 DEOR 5UL3ADA 3 PARR EL M 
ENU “ 

BHD RESTORE 240 FDR N = 54455 TO 
544B4 : READ R: POKE N R: NEXT H 
335 DATA 3 54 11 5 54 S13 5=3 3 
S.131 1 31 5 25 S3! 115 43 119 5 
3S 33 13 133 15 545 BOi 
335 FOR F =0 TO 31: RANDOMIZE US 
R 54455: PRU5E 5: NEXT F: ZF INK 
EV$ =.^» THEN RETURN 
BID G5 TO BSD 
BSD REM R 

B30 FOR N=5 TO 55: BEEP 51 N: 
NEXT N: INPUT "TECLA A5A00■ ■( L 
INE D$ 

305 INPUT "TEOLR ARRIBA. “? LIN 
E li 

315 INPUT "TECLA DZ5PRRD- ”? LI 
NE FT 

32D PRINT RT ID 4: INK 1: PAPER 
5 : BRIGHT 1? FLASH 1•”ESTR SIEN 
RSI rS'^Nl - . 11 

_l3u PRINT RT 13 5: INK 1 : "TEOLR 
AORGO. ”:D5:RT 15 5:"TSCLR 

ARRIBA - “?1$ ? RT 115’“TECLA 

DISPARD. ”:F* 

345 INPUT LINE 0$: IF C*="N” TH 
EN GO TO BBO 
35D RETURN 
335 REM M 

315 RESTORE 310: FDR F=i TO 5S: 
READ DiT: BEEP D T: NEXT F: DAT 
R 15.1515 .41,41 .41 
.1 59 1 1 -11 -IS .5 1 .4 10 


Tu misibfl sera intercept a r las naves gnerrugas, antes de que estas lie 
gufln hasta ti. De to contrary (e quitarin una vida. !V solo tienes cuatro) . 

Podr&s conseguir un bonus, en pun los al llegar a los 1000 puntoa jus 
to. es decir, no podris itegar pot ej^mplo con 1005, ya que entonees no 
se te daran bonus. 

A los 100 H 300, 600 y 3600 la dificulfad M increme ruando y te ser* mas 
ddial conserve r la vida. 

jSUERTE Y AL TORO 1 

LAS MEJGRES PUNTUAClQNES ADMlTlRAN REGISTRAR ELNOMBRE 
DEL JUGADGR 



Lineas 160 a 230 

Realizadbn del rbtulo GUN FI- 

RE. 

Linaas 240 a 260 
Realizacibn de un scroll en el 1, 
tercto de pantalla. 

Uneas 280 a 350 
Redefinicibn de tec Fas. 

Uneas 360 a 380 
Realizacibn de la musica, 
tineas 390 a 480 
Iniciacibn de Pantalla, 

Uneas 490 a 610 
Movimiento de la plstoka, nive- 
les de dificulmd y suma de bo¬ 
nus. 

Uneas 620 a 690 
Generador de enemigos n.l, 
Ltneas 700 a 740 
Generador de enemigos n,2 
Lineas 750 a 810 
Cartelera Game Over, efecto 
musical y inicializador de juego, 
Uneas 820 a 910 
I Cbdigos chr$ retocados y gr5- 
ficos. (Esta linea de 820 a 910 
se puden anular pero no podrbs 
jugar con grMicos y las letras 
ser^n las tipicas del spectrum!. 


Rec, Record m^ima puntua 
cibn. 

2$, Record realizado por 


VE . Coord, vertical de la nave. 

H. Coord, horizontal de la na¬ 
ve. 

PU- Pun i os realizadcs. 

HE. Coord, horizontal de ene- 
migo 1. BOM (Borrado 
del ervemigo 1} 

VEE. Coord, vertical de la nave 
enemiga. VEH iBorrado 
del enemigo IK 

XX. Coord, horizontal del ene¬ 
migo 2. 

ZZ Coord, vertical del enemi- 
go 2. 

BA. N* de vidas. 

LE NiveF, 

L$. flbtub. (Wombr? del jue- 
goF. 

D$. Variable que guards el va 
lor de la tecla A0AJO 

1$. Variable que guarda el va¬ 
lor de la teete ARRI8A. 

F$ , Variable que guarda el va¬ 
lor de la tecla OISPARO. 



AVISO IMPORTANTE 


Copiar con detertcibn las 
lineas datas, reparandolas 
con detenimiento, ya que 
de to contrario los grbficos 
y letras podflan salir 
corrompidas, 

Poner espacios donde 
vienen indicados. 
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;i 1 • i 5 .11 -i 3 -2 4 i 53 . 
14 .15 .14 .4 1 -4 1 .4 1 .1 

o3 -i 1 -i 1 .1 S -2 1 ,4 15 -i 
1 -1 5.1 1.1 5 -2 4 .1 33 i 1 
2. .1 15 .1 15 -1 12 >1 11 .1 15 

• 2 '3 .1 15 -1 12 .1 15 .1 14 -1 
13 .1 15 ■2 11 .1 4 .15 -2 * .1 
1 -3 a .13 .3 5 .2 3 -3 23 
330 RETURN 
338 REM I 
HOS LET =1 

418 PRINT BT 3? INK lJ PBB£R 

Q : " 

Jl i 

42D ir‘“' ss THEN 35 TO 413 
433 BORDER 5: INK 1: PLOT 24 11 
3: DRRi-i 192 Si DRPLi 3 -11 : v““4 

132 3• DRRW 0 11: PLOT 24 35: D 
RRW 132 3: DRRh 3 -33: DRBU -132 

□: DRRW 3 33 

448 PRINT #1: BRISHT 1: PBPER = 
*;HUNDO SPECTRUM ... MUND2 5PSSTR 
UM 

458 PRINT BT ig 4 : "VI0B2::RT i 
S 15 ! ’MR*: ” B£3 

453 FOR N=3 TO 3: PRINT BT 13 1 
1 -‘-N • ” J : OEEP -002 N! NEXT N 
418 PRINT BT 28 4 : "PUNTOE: -PU: 
PRINT RT 53 15 t !, REEiJRD ! ” : 2$ 

4□□ RETURN 
433 REM M 

508 IF INKEV^-Di THSN LET UE=UE 
-1: OEEP 381 33: PRINT RT 4>£-i 
H Tl 11 

510 IF IMKEV?-1$ THEN LET VE=VE 

-1 i OEEP -081 31: PRINT RT US-i 

H . .. .. 

520 IF UE 15 THSN LET US^iS 
533 IF -JE 0 THEN LET UE=B 
543 IF INKEY? : F? THSN F3R F -1 T 
0 23 ; PRINT BT UE H~i ■ +F : INK 
5' : NEXT F: OEEP -331 53: SEE 

P -332 43! PRINT RT VE H+i J ” 

•*: 50 TO 133 

553 IF PU=133 THEN LET LE=2 
550 IF PLi 233 THEN LET LE=3 
510 IF PU 232 THEN LET LE=4 
538 IF PU-1303 THSN LET LS=5: L 
ET BON =230: FOR N -1 TO 40: PRINT 
RT 11 3: FLR5H 1 ? "BONUS . ** : SON : 

BEEP -0334 40: LET Pti=PUS: PRI 
NT BT 28 11:PU: JffiXT N: PRINT BT 
, 3 ? FLB5H 3:" 

538 IF PU =3583 THEN LET LE-1 
530 PRINT BT US H :”i” 

518 RETURN 

SB REM 0 1 

533 LET BOH =HS: LET UEH-USE 
540 LET USE = INT RND-LE -9 
553 PRINT BT VEH 38H+i: ,! " 

558 PRINT BT USE HEi INK *s 
STB LET HE-HE-i 

SOQ IF HE =4 THEN BEEP .1 25: LE 
T SB-BB-i: PRINT BT 13 11 -OB ” “ 
: BT UEE HE-1 : " LET HE =25: IF 
OR-3 THEN 50 TO 153 
5BO RETURN 

133 PEN ' 2 

113 PRINT BT 22 XX: INK E ■* “v " 
128 LET XX=XX-i 

123 IF XX=4 THEN OEEP .1 45: LC 
T 3B =BR -1 : PRINT BT IB 11-3R‘” 51 
; BT 22 XX-i:" «: LET XX=25: LET 
2Z=INT RND*B *3: IF BR=0 THEN 5 

0 TO 153 
143 RETURN 
153 REH = 

158 CL5 : PRINT RT 11 13: FLR5H 
1: INK l: SRPSR 2 f“5RHE OVER”: 
PRU5E 100: FOR N =8 TO 42 STEP 3 = 
FOR f1 z Q TO 11 STEP 3: BEEP .32 
NtN: SEEP .881 H-H: NEXT M: NEXT 
Hi PBUSE £83 


113 IF PLi = REC THEN LET RSC =PU: 
_PRINT BT 21 3 :» RECORD INTRODUC 
t HBX .3 LETRB5- *» r INPUT "HOfiSRE 
. "! LINE 2?: IF LON 24 3 THEN E 

0 TO 138 

IBB PBPER 3: INK 2 : OLE : 00 TO 
48 

“30 IF UE=U£E THEN BEEP -31 1 : 
LET P«J =PU -13 : LET HE 55 
388 JZ Vg : 22 then BEEP 81 3: L 
ET PJ=Pli-5: LET XX =25: LET 22 = IN 
T RND*H -S 
010 53 TO 558 

S2D PBPER 8. INK 2: BORDER 0: S 
LE ■ PRINT Si: FLS5H i 3RI5NT 1 
: PBPER 2: INK 1 =’’CBRCBNDO DP?P5 
E5BERB UN M0MENT8" 

833 RESTORE 33E ^OR N=41204 TO 
42401: RERD R: POKE N R: NEXT N 
B40 DBTB 03030333 24 24 
24 24 =4 3 24 3 54 54 54 3 3 2 0 

a 130 254 254 lag =34 334 132 0 

=4 254 152 254 25 254 24 3 132 
138 12 24 4 = iss I2B 0 24 52 24 
40 14 13 22 BOO 10 03003 
053 DBTB 4 B ,8 0 0 0 4 3 32 15 
ip I s 1 = 1® 3c 3 3 34 55 2 a 4 55 
34 8 O 0 0 0 32 3 8 033300 

0 5 15 8 0 0 0 23 3 0 0 0 0 0 0 

0 24 24 3 0 2 4 0 12 32 54 150 0 

254 254 235 214 

. 533 DBTB 230 254 254 3 43 113 5 
40 40 40 250 050 8 254 254 2 254 

152 254 254 0 254 254 5 52 5 25 

4 PH fl 132 284 2BM 252 252 12 1 

2 8 =5* 554 132 254 5 254 254 0 

254 254 ISO 254 133 

313 DBTB 2SN 254 0 254 254 2 0 
BE 2 3 254 254 ISO S4 150 254 
254 3 254 254 iso 254 2 254 254 

3 2 24 24 3 24 24 8 3 □ 24 24 0 

54 9 IS 3 10 32 54 120 04 

333 DBTB 32 10 3 0 22 3 20 0 0 

33 04 21 24 03 24 30 4 010 

0 10 0 00 138 154 140 152 133 1 
24 0 254 254 ISO 254 254 IS 150 
□ 254 254 IBB 252 150 254 254 5 

25M E54 

053 DBTB 150 155 155 254 254 0 
240 252 153 ISO 139 252 245 0 25 
i 254 194 249 134 254 254 3 254 
254 154 240 192 132 132 0 254 25 

4 192 200 133 254 254 0 190 190 
254 254 130 130 iSS 0 125 125 24 

24 24 125 125 3 254 254 5 130 1 
3B 254 234 3 230 
338 DBTB 215 240 240 215 234 12 
03 132 125 152 192 139 224 254 
0 133 238 254 214 198 130 132 0 
190 298 240 222 285 130 120 3 23 
I 254 130 138 198 254 254 3 254 
254 133 224 554 132 132 3 254 2S 
4 133 190 285 254 2 3 254 254 13 

4 254 252 234 193 3 254 

310 DRTB 254 132 254 2 254 254 
3 254 254 24 24 24 24 24 8 I2B 1 
3B IBS IBB 153 254 254 3 135 195 
198 ISO 133 35 15 8 IS IBS 190 
214 254 238 135 3 134 234 123 5 

5 189 183 133 3 199 133 254 254 
24 24 24 3 254 254 12 24 43 12S 
254 3 254 

323 DBTB OS 152 255 255 152 23 
234 3 3 3 111 ill 3 3 3 24 53 33 

255 30 24 35 05 153 08 SO 219 2 

13 52 53 152 

330 INPUT n 3UIERE5 5R3RR UNR 33 
PIP .”;R£: IF Bi - n S a OR B? = ” ” T 
HEN SRUE ’'BONFIRE “ LINS 353: =po 
E , 1 BUHLETSR ! ’3SDE 41332 435: RUN 
343 RUN 

350 SPUE "BONFIRE” LINE 323: ET 

□P 

323 OLE : LORD ""BODE : RUN 
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Hoy en dia considera- 
mos el espacio como al¬ 
go que se encuentra fue- 
ra de los dominios de la 
raza humaria, pero eso no 
quita, qua existan seres 
intergal^cticos en otras 
galaxias distintas a fa Via 
Lactea. Pues bien, en es- 
te juego podras ver la ma- 
nera de jugar al tenis que 
tienen estos seres extra- 
terrestres, que junto con 
dos raquetas manejan 
una bola muy especial, 
con la cual se deber& des- 
truir los pequenos fantas- 
mitlas que rondan dentro 
del campo donde se de¬ 
buts el campeonato de 
ping-pong. 

Cada fantasma que 
consigas destruir te pun- 
tuar£ en el marcador tan- 
to como 60 puntos, los 
cuafes cuando vayan su- 
m^ndose, te har£n supe- 
rar el record de la m3qui- 
na. Suerte y a por todas. 

Las teclas de movi- 
miento son las siguientes: 
con la Q o la P mueves 
hacia arriba. Con la Z o la 
M mueves hacia abajo, y 


con el espacio sacas la 
pel ota. 

Comentario del progra- 
ma 

En la llnea 40.- se ini- 
cializan los colores de la 
pantalla, a la vez que se 
shade un cartel en medio 
donde se hace visualizar 
-Espera un momento-. 
Ese momento de espera 
es debido a lo que tarda 
el ordenador en introduce 
los UDGs. del programa, 
en memoria, metidos es¬ 
tos ultimos mediante da- 
tas, los cur‘'s son leidos 
gracias a la iinea 45. 

En la Iinea 50.- se ini- 
cializa la variable del re¬ 
cord igualandola a 100, y 
se realiza un poke espe¬ 
cial con ef cual se asegu- 
ra que el cursor se en- 
cuentre durante el juego 
en mayusculas. 

En la Iinea 60.- se efec- 
tua un CLS en la panta¬ 
lla, y se la vuelve a re-ini- 
cializar en sus colores, 
que perdu rar^n en el jue¬ 
go. 

Oesde la Iinea 70 a la li- 
nea 150.- se inicializan to¬ 


das las variables del jue¬ 
go, exceptuando la del 
record que ha sido inicia- 
liada anteriormente. Las 
variables se correspon- 
den de la siguiente mane- 
ra: BORRAR.- variable 


que se utiliza para borrar 
la bola o las raquetas so¬ 
lo cuando se encuentren 
en movimiento, de esta 
manera al estar paradas 
no se notary ningiin par- 
padeo. PU,- variable de 


13 REM 

20 REM Bl-PALETA 

30 REM 

35 REM 

36 REM 

PAPER 0: SORC'ER 0: INK 7 8 

RIGHT 1: CLS ; PRINT PAPER 2;AT 
10,7;" ESPERA UN MOMENTO "; AT 9, 
7; “ -} AT 11,7; 

« » 

4S FOR ft=0 TO 37: READ B POKE 
USR "a”+A,B: NEXT A 
50 LET RE = 10@: POKE 23t>58,3 
60 BRIGHT 0: BORDER 0: PAPER 0 
: INK 7: C-LS 
70 REH 

80 REM Hft VARIABLES 
90 REM 

10© LET BORRAR=l; LET PU=0 
110 LET PX=10: LET PXB=PX 
120 LET Fr1=1: LET FE=0: LET FX 
=16: LET FY=15: LET FXB=FX: LET 
FYB=FY 

140 LET CBO=5: LET BOLA=0: LET 
BX=14: LET BY=3: LET BXB=BX: LET 
BYB=BY: LET BXI=1: LET BYI=1 
150 LET MOV =1 

200 REM 

210 REM *** DIBUUO PANTALLA *** 
£20 REM *********************** 
230 PRINI INK 4 ; AT a . 0 " JK JK JK 
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los puntos. PX.- variable 
de movimiento de las dos 
raquefas. PXB.- variable 
de borrado de las raque- 
tas. FYI,- variable de in- 
cremento o decremento 
de los fantasmas segun lo 
necesite su movimiento. 


pelota. BXB, BYB-- coor- 
denadas de borrado de la 
pelota. BXI, SYl.- coor- 
denadas de incremento o 
decremento de la pelota. 
MOV.- eontador de la pe¬ 
lota para que a cada gr£- 
fico o movimiento de es- 
ta aparezca un gr^fico di- 
ferente de esta. 

Desde la linea 200 a la 
linea 270.- se dibuja el 
paisaje y contorno de la 
pantalla donde se va a de- 
sarrollar el juego. 



FE.- variable de si existe 
o no los fantasmas en 
pantalla. FX,FY.- varia¬ 
bles de movimiento de los 
dos fantasmas. FXB, 
FYB.- variables de borra¬ 
do de los dos fantasmas. 
CBO.- eontador de las 
bolas. BOLA.-variable de 
existe o no la bola o pe¬ 
lota. BX, BY.- coordena- 
das de movimiento de la 


Desde la linea 1000 a la 
linea 1400.- se encuentra 
el bucie principal donde 
se imprime y mueve me- 
diante las instmcciones 
de INKEY$, las raquetas, 
a la vez que se realizan los 
correspondientes GO- 
SUB a las distintas subru- 
tinas del programa. 

Desde la Knea 1500 a la 
linea 1580.- se imprimen y 
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24.0 PRINT INK 4.; AT 18,8;"^. 
■■ b -i* -±ji± —^- 


ulrwr. 


:_ UL 
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_ : _ : _ 




250 PRINT INK A . FIT 10,12; _ 

r^LL";PT 12 j 1 

2;" JKJKJKwK ":RT 13.12: “UKtlK. r 
260 FOR A =6 TO 16 STEP 2= PRINT 
INK 3;RT A+l, 0: "Xi-JRT A+i,30:" 
.II"; AT A,0; : ne 

XT A 

270 PRINT 3RIGHT 1; PAPER 1;RT 
1,3;"PUNTOS: 00 **;HT 1,17;"PECO 

RD. ";AT 1,25;RE;AT 3,11;"PE 

LOTAS: 05 " 

1000 ren tmimiiimimiim 
1010 REN il IHPRE5IGN PRLETRS 11 
1020 REN HlliliH llli iliiillfl 1 
1030 IF SQRRRR =1 THEN PRINT AT P 
XB.3;" "; AT PXB+1,3;*' “ , AT PXB ,2 
s;“ AT PXB+1,23;" LET BORRR 
R=0 


10+0 LET PXB=PX 

1050 PRINT BRIGHT 1;AT PX,3;"a"; 
AT PX + 1,3; AT PX,2B;"i";AT PX 

+1,28;"£.*• 

1060 IF INKEY* ="©*’ OR INKEY* ="P" 
THEN LET PX=PX-1: LET BORRRR=l: 
IF PX <6 THEN LET PX=6 
1070 IF INKEY* ="Z“ OR IMKEY* = *‘H" 
THEN LET PX=PX+1: LET 80RRAR=i: 
IF PX >16 THEN LET PX=16 
1100 IF FE =0 THEN LET FE=1: LET 
FX=16: LET FY=15 
1110 IF FE-1 THEN GO SUB 1500 
11+0 IF BOLA =0 THEN LET BX=PX + i; 

LET BY =+: GO SUB 2120: IF INKEY 
* = ” " THEN LET BOLfl=l: LET BXI=I 
: LET BY1=1: FOR A=1 TO 5: BEEP 
.005,A; NEXT R 

1150 IF BGLA=i THEN GO SUB 2000 
1+00 GO TO 1030 


1500 REN mumumiHiHiiii 
1510 REN 11 NGUIH. FRNTASNR 1 11 
1520 REN HiHUUifliilliimH 
1530 PRINT RT FXB,FYB; “ ";flfT FXB 
-3,FYB;“ ": LET FXB=FX: LET FYB* 
FY 

15+0 PRINT INK 6; RT FX , FY; ; AT 

FX-B.FY; 

1550 LET FY =FY +FYI 
1560 IF FY >25 THEN LET FYI=-I 
1570 IF FY <6 THEN LET FYI = 1 
1530 RETURN 

2000 REH HHHmmrftAHH 
2010 PEN 11 ttOU IHIENTO BOLR 11 
2020 REH lliilllilllllllllilll 
2120 PRINT RT BXB,BYB;“ “: LET B 
XB=BX: LET BYB=BY 

2130 IF HGU*1 THEN PRINT INK 5;A 
T bx,by;-h" 

21+0 IF HOU-2 THEN PRINT INK 5; A 
T BX,BY 

21+5 IF BOLA{>0 THEN LET H0U=3-H 
OU 

2150 IF BOLR =0 THEN LET HOU = i: R 
ETURN 

2152 IF BXI=1 ANO BYI=1 AND ATTR 
(BX,BY111=+ THEN LET BYI=-1: GO 
TO 2200 

215+ IF BXI*—1 AND BYI=1 AND ATT 
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List 


ft (BX—1, BY) =4 THEM LET BXX=i: 60 
TO 2200 

2156 IE BX 1=1 RN£> BYI=-i OHO ATT 
ft IBX+ 1 j BY) -4- THEN LET BXI=-i: 6 
O TO 

215S IF BXI=—1 AND BYI=-1 AND RT 
TR (BX,BY—1J =4 THEN LET BYI=i: 6 
O TO 2206 

2160 IF RTTR (BX+BXI,BY+BYIJ =4- fi 
ND BXI=1 AND BYI-1 THEN LET B> ?“ 
-1: 60 TO 2200 

2170 IF RTTR (BX+BXI,BY+8YI> =— 

NO BXI = -1 AND BY 1 = 1 THEN LET 3- T 
- -1: GO TO 2200 

ii30 IF RTTR (BX+BXI,BY+BYI) =■- K 
SI 8X1 = 1 AND BYI=-i THEN LET B"T 
=1; GO TO 2200 

2120 IF RTTR (BX+BXI,BY+BYIJ =« - 

NL BXI=-I RND BYI = -1 THEN LET S . 
T=1 

2192 IF RTTR (BX+BXI,BY+BYI)=3 T 
HEN 60 SUB 3500 

2194. IF RTTR (BX+BXI,BY +BYI> =6 T 
HEN 60 SUB 3000 

2196 IF RTTR (BX+BXI,BY+BYI) =6 T 
HEN 60 SUB 3000 

2193 IF RTTR (BX+BXI,BY +3YI) =71 
THEN GO SUB 3200 

2200 IF BOLflt >0 THEN LET BX=BX+B 
XX LET BY =6Y +BYI 
2210 RETURN 

3000 REM 1+++++++++++++++++++++ 
3010 REH ii CHOOUE FANTASMAS ii 
3020 REH **+****+****#*****1*** 
3030 FOR R=1 TO 1# 

304-0 PRINT INK I NT (RHD+3) ; RT BX 
B+fJXI,BYS+BYI; 

3050 BEEP .009.0. BEEP .006,5 
3060 NEXT R 

3070 PRINT RT BXB+BXI,BYB+BYI;" 

«• 

3090 LET PU=PU+50: PRINT PAPER I 
; BRIGHT 1;RT l,ll;PU 
3090 PRINT RT FXB,FYB," ”,flT FXB 
-3,FYB; “ *': LET FY=15 
3100 RETURN 

3200 REH +++++++++++++++++*++++ 
3210 REH +*+ CHOOUE RR8UETR Hi 
3220 REH iiiiiiiiiiiiiiiiiiiiil 
3230 IF BXI=1 RND BYI=1 THEN LET 
BXI=-1: RETURN 

3240 IF BXI=—1 RND BYI=I THEN LE 
T BYI=-l: RETURN 

3250 IF BXI = 1 RND BYI=-1 1 .EN LE 
T 0YI=1: RETURN 

3260 IF BXI=— 1 RND BYI=-i THEN L 
ET BXI=1 
3270 RETURN 

3500 REH I*************}******* 
3510 REH ++ CONTRDOR PELOTRS ii 
3520 REH *+++++++++*+*+++*+++++ 
3530 FOR R=1 TO 20: PRINT INK IN 
T (RND+81 ; RT BXB-BYS,: **F~ : BEEP . 
005 ,R: BEEP .005,0 : NEXT ft 
3540 PRINT ftT 8XB.BYB;" *' 

3550 LET BOLft=0: LET CBO=CBO-l 
3555 PRINT PAPER l; BRIGHT l;ftT 
3,21;CBO 

3560 IF CBO=0 THEN GO TO 4000 
3570 RETURN 

4000 REH iiiiiiiiiiiiiiiHiiiii 
4010 REH Hi FINAL PROGRRHR + + + 
4020 REIi iiiliiiiiiiiiiiiiiiiii 
4030 IF PU>RE THEN LET RE=PU 
4040 PRINT INK INT (RND+8 i i AT 11 
,14;"GflhE”;AT 12.14; “OVER" _ 
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mueven los dos fantas- 
mas en pantalla. 

Desde la linea 2000 a la 
linea 2210.* se realiza la 
impresi6n y el movimien- 
to de la bola en la panta- 
Ha, a la vez que desde la 
linea 2152 a la linea 2200 
estSn todas las compro- 
baciones de los cheques 
contra la pelota, tan to de 
raqueta, fantasmas o 
contra la pared, 

Desde la linea 3000 a la 
linea 3100.- se realiza lo 
que pasarfa en pantalla, si 
choca la pelota contra los 
fantasmas. 


Desde la linea 3200 a la 
linea 3270.- se efectua el 
incremento o decremento 
de la pelota segun cho- 
que esta contra la raque- 
ta. 

Desde la linea 3500 a la 
linea 3570.- se imprimen 
las pelotas en pantalla isu 
numero), a la vez que se 
van contabilizando. 

Desde la linea 4000 a la 
linea 4080.- se realiza el fi¬ 
nal del programa, donde 
aparece el cISsico GAME 
OVER en pantalla. 

Y por ultimo, desde la 
linea 9000 a la linea 
9080.aparecen todos los 
Dates de los correspon- 
dientes UDGs del progra¬ 
ma. 


4045 PRI *“ rn’t-r : HT 15,9;"OTR 
fl VEZ CS N 

4050 BEEP .005,10. .004,0: 

BEEP .006,5 

4060 IF INKEy $ =■’ S“ THEN GO TO 60 
4070 IF INKEY* = “N*' THEN STOP 
4030 GO TO 4040 
9000 REH +*+++*+++++***+++++ 

9010 REH ill DRTAS UGDs, JH 
9020 REH iiiiiiii*iiiiii***t 
9030 DRTR £3,126,103,53,31,29,13 
,11,11,13,29,31,53,103,126,23 
9040 DRTR 56,126,230,172,243,134 
,176,208,240,176,134,248,172,230 
,126,56 

9050 DRTR 126,219,153,255,231,19 
5,255,165,0,71,22,48,180,2,193,2 

08 

9060 DRTR 60,94,110,24,24,126,11 
0,60,0,60,94,110,126,110,60,0 
9070 DRTR 124,254,132,218,174,22 
2,124,0,127,255,183,219,174,215, 
127,B 

9030 DATA 252,222,126,238,222,25 
4,252,0 _ 
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PROXIMAS 

1 

CORREO DEL 
LECTOR 


Consultas, dudas, problemas 
sugerencias, etc. de los fectores 
que est£n relacionados con el 
51 sterna SPECTRUM, serSn 
publicadas y respondidas en esta 
seecion 


SECCIONES 


CLUB 


En este apartado daremos 
cab ida a tod os los anuria ios 
entre particulares o clubs de 
inform^tica que esten 
interesados en cambiar, comprar 
o vender algo, establecer 
contactos, etc 


Enviad vuestros mensajes: Mundo SPECTRUM, TomSs Lopez, 3 6,° 28009 MADRID 


Del 20 al 27 de Noviembre 


'5^*. 

IF6MA 






sTi.m.o. 




27 FERIA OFICIAL MONOGRARCAINTERNACIONAL 
DEL EQUIPO DE ORQNA Y DE LA INF0RMAT1CA 


JOfifWDAS PROFESK3NALES DE SW d* 
?0 23 ?■! 25 26 y 2? EneflosdiasnoWra 
raqui.’ia deadens 2D. 30 hash «15 noras Ei 
«te penocto. y para ! a entrada e wmio 
sera necesana 'a laryeta de txatesjonal cue 
le rada a* prese^tar su iiMaii[r 
o^xreit&nu denrdad 
Coflpeso InTernaoonai sabre DrSeno y 
Contort en la Otona, ClDYCO 87 
ConFerencia mfemacionaf de mtomanca 
87 JornadasparasxDfcsonaies Oonfeiwas 
sofre »ecno*og«as espec&ft GdttMK SOW 
es mpcacH^ deasoc edaa < nloroyada 
Honna de 10.30a 20 to- SIN IHTERRUP- 
OQN, Doming&de B.JOa 1&r,cvas ■ 

Pr&MlXh 3 entrMaampwK ae 13 aft* 


s.i.m.o. 


Recinto Ferial de IFEMA en la Casa de Campo - Madrid 
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DISCIPLE 


Interface Centronlc 
de impresora incor- 
porado. 

List y copy de pro- 
gramas con y sin 
grises. 

Doble interface de 
joystick convencio- 
nal Sinclair/Kemps- 
ton. 

1 6 2 unidades de 
disco 3 1/2,1 6 5 m ". 

800 Kbs, por disco. Al- 
ta velocidad de 
transference. 

No ocupa RAM. 
Transfer de progra- 
mas 48/128 Kbs. y 
pantaiias. 

Totalmente compa¬ 
tible con el software 
existente para Mi¬ 
crodrive. 

Ficheros secuencia- 
les y acceso alea- 
torio. 



Ayala, 86 
Telfefs. 435 64 20 
28001 MADRID 
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